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This publication describes the mathematical and service subprograms in the vs 
FORTRAN libraries supplied with vs Fortran. To aid the programmer in the use of 
this publication, a brief description of each chapter follows: 

1 • "Introduction" describes the four types of subprograms in the VS FORT AN 
library (VSFORTL) and defines their use in either a vs Fortran or an 
assembler language program. 

2. "Mathematical and Character Subprograms" describes the subprograms 
which perform computations and conversions frequently needed by the 
programmer. A mathematical or character subprogram is invoked explicitly 
whenever one of its entry names appears in a source statement, or implicitly 
through use of certain notations in the source statements. 

3. "Service Subprograms" contains information about those subprograms 
which perform utility functions. 

4. "Algorithms" contains information about the method used in the library to 
compute a mathematical function and describes the effect of an argument 
error upon the accuracy of the answer returned. 

5. "Accuracy Statistics" gives accuracy statistics for the explicitly called 
mathematical subprograms. 

6. "Appendixes" provides a list of diagnostic messages, a list of module names, 
a sample storage printout, storage estimates, and information for the 
assembler language programmer. 

Standard and mathematical notation is used in this manual. The reader should be 
familiar with this notation and with common mathematical terminology. 

Industry Sfandards 

The vs FORTRAN Compiler and Library program product is designed according to 
the specifications of the following industry standards, as understood and 
interpreted by IBM as of June, 1980: 

American National Standard Programming Language FORTRAN, ANSI X3.9- 
1978 (also known as FORTRAN 77) 

International Organization for Standardization ISO 1539-1980 Programming 
Languages-FORTRAN 

These two standards are technically equivalent. In this manual, references to the 
current standard are references to the above two standards. 

American Standard Fortran, X3.9-1966 

International Organization for Standardization ISO R 1539-1972 Program- 
ming Languages-FORTRAN 

These two standards are technically equivalent. In this manual, references to the 
old standard are references to these two standards. 

Both the FORTRAN 77 and the Fortran 66 standard languages include IBM exten- 
sions. In this book, references to current FORTRAN are references to the FORTRAN 
77 standard plus the IBM extensions valid with it; references to old Fortran are 
references to the Fortran 66 standard plus the IBM extensions valid with it. 
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VS Fortran Publkatioits 

The VS FORTRAN publications are designed to help you develop your programs with 
a minimum of wasted effort. This book, the VS FORTRAN Application Program- 
ming: Library Reference, gives you detailed information about the execution-time 
library subroutines. 

A series of related publications give you detailed reference documentation you can 
use when you are actually performing the tasks this manual describes: 

VS FOR TRAN Application Programming: 

Application Programming Guide, SC26-3985, contains guidance information 
on designing, coding, debugging, testing, and executing vs FORTRAN 
programs written at the current language level. 

Language Reference, GC26-3986, gives you the semantic rules for coding vs 
FORTRAN programs when you're using current Fortran. 

System Services Reference Supplement, SC26-3988, gives you fortran- 
speciflc reference documentation for the system your programs will operate 
under. 

Source-Time Reference Summary, SX26-3731, is a pocket-sized reference card 
containing current FORTRAN syntax and brief descriptions of the compiler 
options. 

System/360 and System/370 FORTRAN iv Language manual, GC28-6515, gives you 
the rules for writing vs Fortran programs when you're using old Fortran. 
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Related Publications 

The FORTRAN programmer using the vs Fortran compiler and library should be 
familiar with the information in the following publications: 

• vs FORTRAN Language Reference, GC26-3986 

• vs FORTRAN Application Programming Guide, SC26-3985 

• VS FORTRAN System Services Reference Supplement, SC26-3988 

• VS FORTRAN Compiler and Library Diagnosis, SC26-3990 

Information about IBM-supplied utility programs can be found in the following 
publications: 

• OS/VSl Utilities, GC26-3901 

• 0S/VS2 Utilities Manual, 0026-3902 

• DOS/VSE Utilities Manual, GC33-5381 

Information about the linkage editor and loader programs can be found in the 
following publications: 

• OS/VS Linkage Editor and Loader, GC26-3813 

• Guide to the DOS/VSE Assember, GC33-6077 

Information about data management can be found in the following publications: 

• OS/VSl Supervisor Services and Macro Instructions, GC28-6670 

• DOS/VSE Data Management Concepts, GC2A-5U% 

• DOS/VSE Macro User's Guide, GC24-5139 

Information about assembler language programming can be found in the following 
publications: 

• OS/VS and DOS/VS, VM/370 Assembler Language, GC33-4010 

• OS/VS, VM/370 Assembler Programmer's Guide, GC33-4021 

Information about System/370 machine characteristics can be found in the follow- 
ing publication: 

• IBM System/3 70 Principles of Operation, G A22-7000 
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SUMMARY OF AMENDMENTS 
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MISCELLANEOUS CHANGES 



"Compare of complex numbers** has been added to the chart 
Implicitly Called Mathematical Subprogams. 

Storage estimates have been updated. 

VSAM execution error messages have been included; other 
messages have been changes. 

A resntrsnt library module list has been added. 

A list of figures has been added. 
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Introduction 



The vs FORTRAN library contains the following types of subprograms: (1) 
mathematical and character functions, (2) service subprograms, (3) input/output 
subprograms, and, (4) error handling subprograms. The mathematical and service 
subprograms handle single, double and extended-precision arguments. Character 
subprograms handle conversation between character and integer data. 

The library subprograms may be used in either a Fortran or an assembler 
language program. (Appendix B contains calling information for the assembler 
language programmer.) In vs Fortran, calls to the library subprograms are either 
at the programmer's request or in response to the program requirements. 
Subprograms required by the program being compiled are provided by the linkage 
editor or loader, which takes the subprograms from the library. 

Mathematicai and 
Character Functions 

These routines provide commonly used mathematical and character functions. 
When vs Fortran requests a function, the routine is either: 

Inlin* Inserted into the program during compilation, or 

Out-of>Un« Included in the load module as a called subprogram during link 

editing. 

This publication discusses both out-of-line and inline routines. The American 
National Standard Institute (ANSI) defines several arithmetic functions, such as 
absolute value (ABS), positive difference (DIM), and transfer of sign (SIGN) as 
intrinsic functions. For the most part, code for these functions is inserted inline by 
the FORTRAN compiler at the point in the source module where the function's 
name is used. However, the following ANSI-defined intrinsic functions have been 
implemented as part of the vs Fortran library and are provided out-of-line for all 
systems: 

INDEX 

LGE/LGT 

LLE/LLT 

MAX/MIN 

MAXO/MINO 

AMAXO/AMINO 

MAXl/MINl 

AMAXl/AMINl 

DMAXl/DMINl 

QMAXl/QMINl 

MOD/AMOD/AINT 

IFIX/INT/IDINT 



Introduction 



Service Subroutine 
Subprograms 

Each of the service subprograms corresponds to a subroutine form as defined by a 
SUBROUTINE Statement in a FORTRAN source module. These subprograms perform 
mathematical exception test and utility functions. They may or may not return a 
value to the calling module. 

Input/Output and &ror 
(Processing Routines 

The library contains certain input/output and error processing routines that act as 
interfaces with the compiled program and operating system. Frequently, the 
mathematical and service functions require assistance from these routines for 
input/output, interruption, and error processing. Storage estimates for these 
routines are included in Appendix B. 
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A^thematical and Character Subprograms 



The mathematical and character subprograms supplied in the vs FORTRAN library 
perform computations and conversions needed by the programmer. Mathematical 
and character subprograms are called in two ways: explicitly, when the programmer 
includes the appropriate entry name in a source language statement (see Figure 1); 
and implicitly, when certain notation (for example, raising a number to a power) 
appears within a source language statement (see Figure 1). 

The following text describes the individual mathematical and character 
subprograms and explains their use in a vs Fortran program. Detailed informa- 
tion about the actual method of computations used in each subprogram, error 
messages, and storage estimates are discussed later in this publication. 
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General Function 


Specific Function 


Entry Name(s) 


Logarithmic and exponential subprograms 
(described in Figure 2) 


Exponential 


EXP 

DEXP 

CEXP 

CDEXP 

QEXP 

CQEXP 


Logarithmic, common and natural 


ALOG, ALOGIO 
DLOG, DLOGIO 
CLOG 
CDLOG 

QLOG, QLOGIO 
CQLOG 


Square root 


SQRT 

DSQRT 

CSORT 

CDSORT 

QSQRT 

CQSQRT 


Trigonometric subprograms 
(described in Figure 3) 


Arcsine and arccosine 


ARSIN, ARCOS 
DARSIN, DARCOS 
ASIN, ACOS 
DASIN, DACOS 
QARSIN, QARCOS 


Arctangent 


ATAN, ATAN2 
DATAN, DATAN2 
QATAN 
QATAN2 


Sine and cosine 


SIN, COS 
DSIN, DCOS 
CSIN, CCOS 
CDSIN, CDCOS 
QSIN, QCOS 
CQSIN, CQCOS 


Tangent and cotangent 


TAN, COTAN 
DTAN, DCOTAN 
QTAN, (JCOTAN 


Hyperbolic function subprograms 
(described in Figure 4) 


Hyperbolic sine and cosine 


SINH, COSH 
DSINH, DCOSH 
QSINH, QCOSH 


Hyperbolic tangent 


TANH 

DTANH 

QTANH 


Character 
Manipulation 
Routines 
(see Figure 6) 


Convert integer to character 
Convert character to integer 
Length of character item 
Index of character item 
Alphamerically greater than or equal 
Alphamerically greater than 
Alphamerically less than or equal 
Alphamerically less than 


CHAR 

ICHAR 

LEN 

INDEX 

LGE 

LGT 

LLE 

LLT 



/if 
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Figure 1. (Part J of 2) Explicitly Called Mathematical and Character Subprograms 
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General Function 


Specific Function 


Entry Name(s) 


Miscellaneous subprograms 
(described in Figure 7) 


Absolute value 


CABS 

CDABS 

CQABS 

lABS 

ABS 

DABS 

QABS 


Error function 


ERF, ERFC 
DERF, DERFC 
QERF, QERFC 


Gamma and log-gamma 


GAMMA, ALGAMA 
DGAMMA, DLGAMA 
LGAMMA 


Maximum and minimum value 


AMAXO, AMINO, MAXO, MINO 
AMAXl, AMINl, MAXl, MINI 
DMAX1,DMIN1 
MAX, MIN 


Modular arithmetic 


MOD 

AMOD, DMOD 

QMOD 


Truncation 


AINT 
INT, IDINT 


Imaginary Part of Complex 
Argument 


IMAG, AIMAG 

DIMAG 

QIMAG 


Conjugate of a Complex Number 


CONJG 
DCONJG.QCONJG 


Obtain 

Nearest Whole Number 


ANINT 
DNINT 


Obtain 
Nearest Integer 


NINT 
IDNINT 


Obtain Positive Difference 


DIM, IDIM 
DDIM, QDIM 


Transfer of Sign 


SIGN, ISIGN 

DSIGN 

QSIGN 


Obtain Double Precision Product 


DPROD 



Figure 1. (Part 2 of 2) Explicity Called Mathematical and Character Subprograms 
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Explicitly Called Subprograms 



Each explicitly called subprogram performs one or more mathematical or character 
functions. Each mathematical and character function is identified by a unique entry 
name. 

A subprogram is called whenever the appropriate entry name is included in a vs 
FORTRAN arithmetic or character expression. The programmer must supply one or 
more arguments. These arguments are separated by commas, the list of arguments 
is enclosed in parentheses, following the entry name. 

For example, the source statement: 

RESULT = SIN (RADIAN) 

causes the sine subprogram to be called. The sine of the value in R ADIAN is com- 
puted and the function value is stored in RESULT. 

In the following example, the square root subprogram is called to compute the 
square root of the value in AMNT. The function value is then added to the value in 
STOCK and the result is stored in ANS. 

ANS = STOCK + SQRT (AMNT) 

The explicitly called subprograms are described in Figures 2 through 5. The follow- 
ing information is provided: 

General Function: This column states the nature of the computation performed 
by the subprogram. 

Entry Name: This column gives the entry name that the programmer must use to 
call the subprogram. A subprogram may have more than one entry name; the par- 
ticular entry name used depends on the computation to be performed. For exam- 
ple, the sine and cosine subprogram has two entry names: SIN and COS. If the sine 
is to be computed, entry name SIN is used; if the cosine is to be computed, entry 
name COS is used. 

Deflnition: This column gives a mathematical equation that represents the com- 
putation. An alternate equation is given in those cases where there is another way 
of representing the computation in mathematical notation. For example, the 
square root can be represented either as: y = VTor y =x^'^. 

Argument Numbers: This column gives the number of arguments that the 
programmer must supply. 

Argument Type: This column describes the type and length of each of the argu- 
ment (s). INTEGER, REAL, COMPLEX, and Character represent the type; the notations 
*4, *8, *16, *32, and *n represent the size of the argument in number of storage 
locations. (The notation *n describes character data.) 

I IBM EXTENSION 1 

Argument Range: This column gives the valid range for arguments. If an argu- 
ment is not within this range, an error message is issued. For a description of the 
error messages see Appendix C of this publication. 
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Function Value Type and Range: This column describes the type and range of 
the function value returned by the subprogram. Type notation used is the same as 
that used for the argument type. The range symbol y = 16^^ (1 — 16'^) for regular 
precision routines, 16*^ (1 — 16"^*) for double-precision and y = 16®^ (1 — 16"28) 
for extended-precision. 

' ^END OF IBM EXTENSION ' 

Error Code: This column gives the number of the message issued when an error 
occurs. Appendix C contains descriptions of the error messages. 

Throughout this publication, the following approximate values are represented by 
2^8 -TT and 250 . ^. 

218 . ^ = .8235496645826428D + 06 
250 .^= .35371 18876014220D+ 16 

Detailed information for the assembler language programmer is given in 
Appendix A. 
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General 
Function 


Entry 
Name 


Definition 




Argumen 


t(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Type' 


Range 


Common 
and natural 
logarithm 


ALOG 


y=log,x or 
y=lnx 


1 


HEAL *4 


x>0 


REAL*4 

y> -180.218 
y ^ 174.673 


253 


ALOGIO 


y=log,«x 


1 


REAL *4 


x>0 


REAL*4 

y ^ -78.268 
y ^ 75.859 


253 


DLOG 


y=log..x or 
y=ln X 


1 


REAL *8 


x>0 


REAL •& 

y^ -180.218 
y ^ 174.673 


263 


DLOGIO 


y=log,.JC 


1 


REAL *8 


x>0 


REAL *8 

y ^ -78.268 
y ^ 75.859 


263 


CLOG 


w — PVI/wr (■,\ 

See Note 2 


1 


COMPLEX *S 


;'. -^ + Oi 


y, > -180.218 
y, ^ 175.021 

-T^ys^ IT 


273 


CDLOG 


y=PVlog, (z) 
See Note 2 


1 


COMPLEX •IB 


z 7^ + Oi 


COMPLEX *16 

y,>- 180.218 
yi ^ 175.021 

-ir^y2^ir 


283 


QLOG 


y=logeXor 
y=lnx 


1 


REAL '16 


x>0 


REAL*16 

yS -180.218 
y £ 174.673 


293 


QLOGIO 


y=logio X 


1 


REAL '16 


x>0 


REAL* 16 

y 2 -78.268 
y £ 175.859 


293 


CQLOG 


y=PVloge(z) 
See Note 2 


1 


COMPLEX *32 


z ?i + Oi 


COMPLEX *32 

y, ^ -180.218 
y, :£ 175.021 
—V S y2 2S IT 


278 


Exponential 


EXP 


y-gX 


1 


REAL *4 


X ^ 174.673 


REAL*4 

0^yg7 


252 


DEXP 


ysse" 


1 


REAL *8 


X ^ 174.673 


REAL*8 

0^y^7 


262 


CEXP 


y=e« 
See Note 3 


1 


COMPLEX *8 


xi < 174.673 

H<(2i8.^) 


COMPLEX *8 

-7^yi,ya^7 


271, 
272 


CDEXP 


y=e» 
See Note 3 


1 


COMPLEX * 16 


x, g 174.673 
W<(2".ir) 


COMPLEX *16 

-7^yi,y«^7 


281, 
282 


QEXP 


y=e* 


I 


REAL*16 


X 2 -180.218 
X ^ 174.673 


REAL*16 

O^ySiy 


292 


CQEXF 


y=ex 
See Note 3 


1 


COMPLEX '32 


X. 25 174.673 
Xj Si 2'~ 


COMPLEX '32 

-ySyi.yaSJy 


276, 
277 


NOTES: (See end of figure.) 



Figure 2. (Part 1 of 2) Logarithmic and Exponential Subprograms 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Typei 


Range 


Square root 


SORT 


y= Vxor 

y=x''* 


1 


REAL *4 


x^O 


real*4 

^ y ^ y '» 


251 


DSQRT 


y=Vxor 


1 


REAL *8 


x^O 


HEAL *8 


261 


CSQRT 


y= Vzor 
y=z'/* 
See Note 3 


1 


COMPLEX *8 


any complex 
arKiunent 


complex '8 
O^y.^ 1.0987(7''') 
|y,I ^ 1.0987 (7^'') 




CDSQRT 


y= Vz or 

y = Z»'» 

See Note 3 


1 


COMPLEX *16 


any complex 
argument 


complex *16 
O^y,^ 1.0987(7''') 
|y.| ^ 1.0987 (7''') 






QSQRT 


y = VTor 

y = x»/2 


1 


REAL*16 


X 20 


REAL 'IS 

S y S y>/2 


289 




CQSQRT 


y = V Tor 

y = z''* 
See Note' 


1 


COMPLEX "32 


any complex 
argument 


complex *32 
OSy,S 1.0987 (7'/2) 
y^ £ 1.0987 (7»/2) 




NOTES: 

> REAL *4, REAL *8, and REAL *16 arguments correspond to real double precision and extended precision arguments, 

respectively, in vs Fortran. 
' pv = principal value. The answer given Cvi +^2') »s that one whose imaginary part (jsj) lies between — ir and + ir . More 

specifically: — ir < yz^ ir, unless x, < and x^ = - 0, in which case, >'2 = - ir. 
' z is a complex number of the form x, + Xj /. 
4 y = 1663 (1 _ 15-6) for regular precision routines, 16*' (1 - 16-") for double precision routines, and 1663 (1 _ j^-as) 

for extended precision. 



Figure 2 (Part 2 of 2) Logarithmic and Exponential Subprograms 
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General 
Function 


Entry 
Name 


DefiniHon 


Arguinent(s) 


Function Value 

Type* and 

Ran^ 


Error 
Code 


No. 


Typei 1 


Range 


Arcsine and 
arccosine 


ASIN 


See ARSIN, DARSIN or QARSIN 








ACQS 


See ARCOS, DARCOS or QARCOS 








ARSIN 


y=arcsin (x) 


1 


REAL*4 


W^i 


real*4 (in radians) 


257 


ARCOS 


y=arccos (x) 


1 


REAL*4 


|x| ^ 1 


iucAL*4 (in radians) 
Ogy^ir 


257 


DASIN 


See DARSIN 












DACOS 


See DARCOS 












DARSIN 


y=arcsin (x) 


1 


REAL*8 


W^i 


REAL*8 (in radians) 


267 


DARCOS 


y=arccos (x) 


1 


REAL*8 


W^i 


REAL *8 (in radians) 
O^y^ir 


267 


QARSIN 


y=arcsin(x) 


1 


REAL '16 


Ixl^l 


REAL •16 

-fSySf 


297 


QARCOS 


y=arcos(x) 


1 


REAL*16 


IxISl 


REAL^16 

OSyS v 


297 


Arctangent 


ATAN 


y=arctan (x) 


1 


REAL *4 


any real argument 


REAL*4 (in radians) 




ATAN2 


y=arctan [ ^J 


2 


R£AL*4 


any real arguments 
(except 0,0) 


REAL *4 (in radians) 
-v<y^ir 


255 


DATAN 


y=arctan (x) 


1 


REAL*8 


any real argument 


REAL *8 ( in radians ) 




DATAN2 


y=arctan y ^^) 


2 


REAL *8 


any real arguments 
(except 0,0) 


REAL *8 (in radians) 
-ir<y^ir 


265 


QATAN 


y=arctan(x) 


1 


REAL*16 


any REAL 
argument 


REAL • 16 (in radians) 
-f ^ y Sf 




QATAN2 


y=arctan -«Ii 


2 


REAL*16 


any real 
arguments 
(except 0,0) 


REAL '16 (in radians) 
- «r < y S» IT 


295 


Notes: ( See end of table. ) 1 



Figure 3. (Part 1 of 2) Trigonometric Subprograms. 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Typei 


Range 


Sine and 
cosine 


SIN 


y=sin (x) 




real*4 
( in radians ) 


|xl<(2^««7r) 


REAL*4 

-i^y^i 


254 


COS 


y=cos (x) 




REAL*4 

( in radians ) 


|x|<(2>«-7r) 


REAL '4 

-l^y^l 


254 


DSIN 


y=sin (x) 




REAL *8 

( in radians ) 


|x|<(2«o»7r) 


REAL *8 

-l<y^l 


264 


DCOS 


y=cos (x) 




REAL *8 
( in radians ) 


lx|<(2="»Tr) 


REAL *8 

-i^y^l 


264 


CSIN 


y=sin (z) 
See Note 2 




COMPLEX *8 
( in radians ) 


|x,!<(2i''.7r) 
|x.| ^ 174.673 


COMPLEX *8 

-7 ^ yi, y!' = 7 


274, 

275 


CCOS 


y = cos (z) 
See Note 2 




COMPLEX *8 

( in radians ) 


U, < (2"'«ir) 

jx. ^ 174.673 


COMPLEX *8 

-7^yi, y«^7 


274, 
275 


CDSIN 


y=sin (z) 
See Note 2 




COMPLEX * 16 

( in radians ) 


lx,| < (2-^" -it) 
(x.| ^ 174.673 


COMPLEX *16 

-7 ^ yi, ya ^ 7 


284, 
285 


CDCOS 


y = cos (z) 
See Note 2 




COMPLEX *16 

( in radians ) 


|x,|<(2-^''«7r) 

Ix.! ^ 174.673 


COMPLEX *16 

-7 ^ yi, ya ^ 7 


284, 
285 


QSIN 


y=sin(x) 




real*16 
(in radians) 


|x| < 2'°o 


REAL*16 
-1 ^y ^ 1 


294 


QCOS 


y=cos(x) 




REAL'16 

(in radians) 


|x| < 2"'<' 


REAL*16 

-1 Sy S 1 


294 


CQSIN 


y=sin(z) 
See Note 2 




complex *32 
(in radians) 


X2 


< 2'°° 
^ 174.673 


COMPLEX *32 

-y ^ y,, y2 ^ y 


279, 
280 


CQCOS 


y=cos(z) 
See Note 2 




COMPLEX *32 
(in radians) 


X < 2'°° 
X2 £ 174.673 


COMPLEX *32 

-y ^ y„ yz ^ y 


279, 
280 


Tangent 

and 

cotangent 


TAN 


y = tan (x) 




REAL *4 
(in radians) 


lx| < (2"'»7r) 

See Note 4 


HEAL *4 

-7 ^y ^ 7 


258, 
259 


COTAN 


y = cotan (x) 


^ 


REAL *4 
(in radians) 


lx|<(2'^'7r) 

See Note 4 


REAL *4 

-7 ^ y = 7 


258, 
259 


DTAN 


y = tan (x) 




REAL *8 

( in radians ) 


ix| < (2"'«7r) 
See Note 4 


REAL *8 

-7^y ^7 


268, 
269 


DCOTAN 


y = cotan (x) 




REAL *8 
( in radians ) 


|.x| <(25".,r) 

See Note 4 


REAL *8 

-7^y ^7 


268, 
269 


QTAN 


y=tan(x) 




REAL* 16 

(in radians) 


jx|< 2"«' 
See Note 3 


REAL*16 

-y ^ y S 7 


298, 
299 


QCOTAN 


y=cotan(x) 




REAL*16 

(in radians) 


X < 2""> 
xS 16-«3 
See Note 3 


REAL*16 
-y S y S 7 


298, 
299 


Notes: 

' REAL*4, REAL*8, and REAL* 16 correspond to real, DOUBLEand extended precision arguments, respectively, in vs Fortran. 

=^ zis a complex number of the form x + x i. 

2 X may not be such that one can find a singularity within 8 units of the last digit value of the floating-point representation of x. 

Singularities are ± (2n + l)-^n = 0, 1, 2, . . . for tangent, and ± n tt, n = 0, 1, 2, . . . for cotangent. 
* The argument for the cotangent functions may not approach a multiple of tt; the argument for the tangent functions may not 

approach an odd multiple of it/2. 
s y = 1663 (1 _ 15-6) for regular precision routines, 16^3 (1 - 16-"') for double-precision routines and 16«3 (1 - 16'''^) for 

extended precision. 



Figure 3. (Part 2 of 2) Trigonometric Subprograms. 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Type* 


Range 


Hyi)erbolic 
sine and 
cosine 

Hyperbolic 
tangent 


SINH 


e' - e-« 




REAL *4 


|x| < 175.366 


realM 


256 


^- 2 


COSH 


,._ e' + e-' 
^ 2 




REAL *4 


!x| < 175.366 


BEAL*4 

l^y^7 


256 


DSINH 


V «" - «■' 




REAL *8 


|x| < 175.366 


heal*8 
-7^y ^7 


266 


2 


DCOSH 


,.« e« + e-' 
^ 2 




REAL 'S 


|x| < 175.366 


real*8 
l^yg7 


266 


QSINH 


y-^-Y^ 




REAL *16 


|x Is 175.366 


REALM6 


296 


QCOSH 


y=.£M^ 




REAL *16 


|x 1^175.366 


REAL ♦16 
ISySy 


296 


TANH 


e' - e-' 




REAL *A 


any real argument 


REAL*4 

-Igy^l 


— 


^ e" + e-* 


DTANH 


e" - e-' 
y= e'' + e-' 




REAL *8 


any real argument 


REAL '8 

-l^y^l 


— 


QTANH 


^ ex + e X 




REAL *16 


any real 
argument 


REAL *16 

-ISySl 




NOTES: 

■ REAL •4, REAL *8, and REAL *16 arguments correspond to real, double and extended precision arguments, respectively, 

in VS FORTRAN. 

a y = i6«3 (1 _ 16-6) for regular precision routines, W^ (1 - 16-i«) for double-precision routines, and 16«« (1 - 16-=») 
for extended precision. 



Figure 4. Hyperbolic Function Subprograms 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Valtie 

Type* and 

Range* 


Error 
Code 


No. 


Type^ 


Range 


Absolute 
value 


CABS 


y=|z|=(xi2 + X,2)^/« 


1 


COMPLEX *8 


any complex 
argument 
See Note 2 


REAL*4 

^ yi ^ 7 
yi = 




CDABS 


y=|z]=(xi2 + X,3r/* 


1 


COMPLEX *16 


any complex 
argument 
See Note 2 


REAL*8 

^ yi ^ 7 
y.«0 




CQABS 


y = |z|=(x,« + Xj«)'/« 


1 


COMPLEX '32 


any complex 
argument 
See Note 1 


real *16 
S yi S y 

y^^o 





lABS 


y = |x| 


1 


INTEGER '4 


any integer 
argument 


integer *4 
O^y ^7 





ABS 


y = |x| 


1 


REAL '4 


any real 
argument 


REAL '4 

0:Sy^ Y 




DABS 


y = |x| 


1 


REAL *8 


any real 
argument 


REAL *8 

S y, S y 





QABS 


y = |x| 


1 


REAL •16 


any real 
argument 


REAL '16 

s yi S y 


— 


Error 
function 


ERF 


2 r ' 


1 


REAL*4 


any real 
argument 


REAL*4 

-l^y^l 




ERFC 


2 f* 2 
y=l-erf(x) 


1 


HEAL*4 


any real 
argument 


REAL*4 

0^y^2 




DERF 


2 r » 


1 


REAL *8 


any real 
argument 


REAL*8 




DERFC 


2 r* « 

y- — 1 e"" du 
y=l -erf (x) 


1 


REAL*8 


any real 
argument 


REAL*8 

0^y^2 




QERF 


2r 


1 


REAL '16 


any real 
argument 


REAL* 16 

- 1 :Sy S 1 





QERFC 


y ff/ e-"'du 

X 

y = 1 - erf (x) 


1 


REAL*16 


any real 
argument 


REAL '16 

O^y ^2 





NOTES: (See end of figure.) 



Figure S. (Part lofS) Miscellaneous Mathematical Subprograms 
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General 
Function 


Entry 
Name 


Definition 




ArgumenI 


t(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Type* 


Range 


Gamma and 
log-gamma 


GAMMA 


/•oo 

y= 1 u"-^ e- du 


1 


REAL*4 


X > 2-"2 and 
x < 57.5744 


REAI.*4 

0.88560 ^ y ^ 7 


290 


ALGAMA 


y=log, r (x) or 
y=loge 1 u*"^e""du 


1 


REAL*4 


X > and 

X < 4.2913 • 10" 


HEAL*4 

-0.12149 ^yg7 


291 


DGAMMA 


y= f u"-^ e- du 


1 


REAL*8 


X > 2-252 and 
X < 57.5744 


REAL*8 

0.88560 g y ^ 7 


300 


DLGAMA 


y=log. r (x) or 

/tea 

y=log, 1 u'"^ e"" du 


1 


REAL*8 


X > and 

X < 4.2915 • 10'* 


REAL*8 

-0.12149 g y ^ 7 


301 


LGAMMA 


y=Iog, r (x) or 

/»oe 

y=log, 1 u'-^e-^du 


1 


REAL *4 


x> 2-2" and 
X < 57.5744 


REAL*4 

0.88560 g y ^ 7 


290 


Maximum 
and 

minimum 
values 


MAXO 


y=max (xi , . . . ,Xn) 


^2 


INTEGEH *4 


any integer 
arguments 


INTEGER *4 




MINO 


y=min (xi , . . . , Xn) 


^2 


INTEGER *4 


any integer 
arguments 


INTEGER ^4 




AMAXO 


y=max (xi , . . . ,Xn) 


^2 


INTEGER *4 


any integer 
arguments 


REAL*4 




AMINO 


y = min (xi , . . . ,Xn) 


^2 


INTEGER *4 


any integer 
arguments 


REAL "4 


— 


MAXl 


y=max (xi , . . . ,Xn) 


^2 


REAL*4 


any REAL 
arguments 


INTEGER M 




MINI 


y=min (xi , . . . ,Xn) 


^2 


REAL*4 


any REAL 
arguments 


INTEGER *4 




AMAXl 


y=max (xi , . . . ,x„) 


^2 


REAL '4 


any REAL 
arguments 


REAL*4 




AMINl 


y=min (xi , . . . ,x„) 


^2 


REAL *4 


any REAL 
arguments 


REAL*4 




DMAXl 


y=max (xt , . . . ,x„) 


^2 


REAL *8 


any REAL 
arguments 


REAL*8 




DMINl 


y=min (xi, . . . ,Xn) 


^2 


REAL*8 


any REAL 
arguments 


REAL*8 




Notes: (See em 


i of figure.) 















4-^ 
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Figure 5. (Part 2 of 3) Miscellaneous Mathematical Subprograms 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Value 

Type* and 

Range* 


Error 
Code 


No. 


Type* 


Range 


Maximum 

and 

minimum 

values 

(continued) 


MAX 


y=max (xi , . . .,Xn) 


g2 


INTEGER *4 


any integer 
arguments 


INTJiCER *4 


. 


MIN 


y=min (xi , . . . ,Xn) 


^2 


INTEGER *4 


any integer 
arguments 


integer *4 


— 


QMAXl 


y=max (x„ . . . , xj 


22 


REAL '16 


any real 
argument 


real '16 


— 


QMINl 


y=min (xj, . . . , x^) 


22 


REAL* 16 


any real 
argument 


REAL*16 




Modular 
arithmetic 


MOD 


y=xi (modulo X2) 
See Note 3 


2 


INTEGER 


xu^O 
See Note 4 


integer *4 




AMOD 


y=xi ( modulo X2) 
See Note 3 


2 


REAL *4 


See Note 4 


REAL*4 




DMOD 


y=Xi ( modulo xa) 
See Note 3 


2 


REAL *8 


x«^0 
See Note 4 


REAL*8 


— 


QMOD 


y=x, (modulo x) 
See Note 3 


2 


REAL*16 


Xj?£0 
See Note 4 


real*16 





Truncation 


AINT 


y = (sign of x)»n 
where n = 1 1 x | J 
See Note 6 


1 


REAL *4 


any real 
argument 


REAL*4 




INT 


y = (sign of x)»n 
where n = 1 1 x | J 
See Note 6 


1 


REAL *4 


any real 
argument 


INTEGER ^4 




IDINf 


y = (sign of x)«n 
where n= 1 1 x | ] 
See Note 6 


1 


REAL*8 


any real 
argument 


integer *4 




Notes. 

' REALM, REAL*8, and REAL* 16 arguments correspond to real, double and extended precision arguments, respectively, in 

VS FORTRAN. 

* Floating-point overflow can occur. 

3 The expression Xi (modulo Xj) is deflned as Xi — r^l • Xj, where the brackets indicate that an integer is used. The 

largest integer whose magnitude does not exceed the magnitude of -5^ is used. The sign of the integer is the same as the sign 
of J' . 

* If Xj = 0, then the modulus function is mathematically undeflned. In addition, a divide exception is recognized and an 
interruption occurs. (A detailed description of the interruption procedure is given in Appendix C.) 

» y s= 1663 (1 . 15-8) for regular precision routines, 16*' (1 — 16*") for double-precision routines and 16" (1 — 16"") for 
extended precision routines. 
For example, n = | m | where m is the greatest integer satisfying the relationship | m | S | x | . 



Figure S. (Part 3 of 3) Miscellaneous Mathematical Subprograms 
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General 
Function 


Entry 
Name 


Definition 


Argument(s) 


Function Value 

Type and 

Range 


Error 
Code 


No. 


Type 


Function 


Convert 
character 
to integer 


ICHAR 


Conversion to 
integer 


1 


Character 


Integer 


INTEGER *4 




Convert 
integer to 
character 


CHAR 


Conversion 
to character 


1 


Integer 


Character 


INTEGER M 


188 


Length of 

character 

item 


LEN 


Length of 

character 

entity 


1 


Character 


Integer 


INTEGER M 


" 


Index of 
characte 
item 


INDEX 


Location of 
substring aj 
in string ai 


2 


Character 


Integer 


INTEGER *4 


189, 
190 


Alphamerically 
greater 
than or equal 


LGE 


a,^aj 


2 


Character 


Logical 


LOGICAL *4 


191, 
192 


Alphamerically 

greater 

than 


LOT 


ai>a2 


2 


Character 


Logical 


LOGICAL '4 


191. 
192 


Alphamerically 
less than 
or equal 


LLE 


ai ^aj 


2 


Character 


Logical 


LOGICAL M 


191, 
192 


Alphamerically 
less than 


LLT 


ai <a2 


2 


Character 


Logical 


LOGICAL *4 


191, 
192 



Figure 6. Character Manipulation Routines 
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Implicitly Called Subprograms 



The implicitly called subprograms are executed as a result of certain notations 
appearing in a vs FORTRAN source statement. When a number is raised to a power 
or when a multiplication or division of complex numbers is to be performed, the vs 
FORTRAN compiler generates the instructions necessary to call the appropriate 
subprogram. For example, if the following source statement appears in a source 
module, 

ANS = BASE**EXPON 

where BASE and expon are real*4 variables, the vs Fortran compiler generates a 
reference to FRXPR#, the entry name for a subprogram that raises a real number 
to a real power. 

The implicitly called subprograms in the vs Fortran library are described in 
Figure 6. The column headed "Implicit Function Reference" gives a representa- 
tion of a source statement that might appear in a vs Fortran source module and 
cause the subprogram to be called. The rest of the column headings in Figure 6 
have the same meaning as those used with the explicitly called subprograms. 
Algorithms for implicitly called subprograms are given in the chapter 
"Algorithms." Additional information for assembler language programmers is 
given in Appendix A. 

For subprograms that involve exponentiation, the action taken within a 
subprogram depends upon the types of the base and exponent used. Figures 7 
through 1 1 show the result of an exponentiation performed with the different com- 
binations and values of base and exponent. In these figures, I and J are integers; A 
and B are real numbers; C is a complex number. 
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General 
Function 


Entry* 
Name 


Implicit 

Function 

Reference* 


Argument(s ) 


Function 
Value 
Type' 


Error 
Code 


No. 


Type' 


Multiply and 
divide complex 
niunbers 


CDMPY# 


y = zi* zs 


2 


COMPLEX *16 


COMPLEX •le 




CDDVD# 


y = Zi/Za 


2 


COMPLEX *16 


COMPLEX *16 




CMPY# 


y = Zi* Za 


2 


COMPLEX *8 


COMPLEX *8 




CDVD# 


y = Zi/za 


2 


COMPLEX '8 


COMPLEX *8 




CQMPY# 


y = z,*Z2 


2 


COMPLEX *32 


COMPLEX *32 





CQDVD# 


y = z,/Za 


2 


COMPLEX *32 


COMPLEX *32 


— 


Compare of 

Complex 

numbers 


CXMPR# 
(See 
Note 4) 


y = Zj compop Zj 
(See Note 5) 


2 


COMPLEX 
(of all 
lengths) 


L0GICAL*4 





Raise an integer 
to an integer 
power 


FIXPI# 


y = i**j 


2 


i = INTEGER *4 
j = INTEGER *4 


INTEGER *4 


241 


Raise a real 
number to an 
integer power 


FRXPI# 


y = a**j 


2 


a = REAL *4 

j = INTEGER *4 


REAL *4 


242 


FDXPI# 


y = a**j 


2 


a = REAL *8 

j = INTEGER *4 


REAL*8 


243 


FQXPI# 


y = a**j 


2 


a = REAL '16 
j == INTEGER '4 


REAL*16 


248 


Raise a real 
number to a 
real power 


FRXPR# 


y = a*»b 


2 


a = REAL *4 
b = REAL *4 


REAL*4 


244 


FDXPD* 


y = a**b 


2 


a = REAL *8 
b = REAL 8* 


REAL*8 


245 


FQXPQ# 


y = a**b 


2 


a = REAL '16 
b = REAL* 16 


REAL '16 


249. 
250 


Raise 2 to a 
real power 


FQXP2# 


y = 2**b 


1 


b = REAL *16 


REAL*16 


260 


Raise a complex 
number to an 
integer power 


FCDXI# 


y = z**j 


2 


Z = COMPLEX *16 
j = INTEGER *4 


COMPLEX *16 


247 


FCXPI# 


y = z**i 


2 


Z = COMPLEX *8 
j = INTEGER *4 


COMPLEX *8 


246 


FCQXI# 


y = z-j 


2 


Z = COMPLEX '32 
j = INTEGER *4 


COMPLEX '32 


270 



'■4_y 



Figure 7. Implicitly Called Mathematical Subprograms (Part 1 of 2) 
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Notes: 

1. This name must be used in an assembler language program to call the subprogram; the character # is a part of the name 
and must be included. 

2. This is only a representation of a Fortran statement; it is not the only way the subprogram may be called. 

3. REAL *4, REAL *8, and REAL *16 arguments correspond to real, double precision, and extended precision arguments, 
respectively, in vs Fortran. 

4. CXMPB# is an entry name in the library module IFYCCMPR, which is also used for a compare of character arguments. 

5. compop is one of the following relational operators: equal or not equal. 



Figure 7. ImpUcitly Called Mathematical Subprograms (Part 2 of 2) 



c 



Entry 
Name 


Implich 
Function 
Reference 


Argument (s) 


Function 
Value 
Type 


Error 
Code 


No. 


Type 


CCMPR# 


y = Xj compop Xj 
(See Note) 


6 


Character 


Any character 
argument 


193 
194 


CMOVE# 


y = x 


4 


Character 


Any character 
argument 


195 
196 
197 


CNCAT# 


y == Xi // Xj . . . // Xq 


22 


Character 


Any character 
argument 


198 
199 


Note: Where compop is one of the following relational operators: 
equal 
not equal 
greater than 
less than 

greater than or equal 
less than or equal 



Figure 8. Implicitly Called Character Subprograms 
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Base (I) 


Exponent (J) 


J^O 


J = o 


J<0 


I>1 


Compute the 
function value 


Function 
value = 1 


Function 
value = 


I = 1 


Compute the 
function value 


Function 
value = 1 


Function 
value = 1 


1 = 


Function 
value = 


Error message 
241 


Error message 
241 


1= -1 


Compute the 
function value 


Function 
value = 1 


If J is an odd 
number, function 
value = —1. 
If J is an even 
number, function 
value = 1. 


K-1 


Compute the 
function value 


Function 
value == 1 


Function 
value = 



Figure 9. Exponentiation with Integer Base and Exponent 



Base (A) 


Exponent (J ) | 


J>0 


J = o 


J<0 


A>0 


Compute the 
function value 


Function 
value = 1 


Compute the 
function value 


A = 


Function 
value = 


Error message 
242 or 
243 


Error message 
242 or 
243 


A<0 


Compute the 
function value 


Function 
value = 1 


Compute the 
function value 



Figure 10. Exponentiation with Real Base and Integer Exponent 



Base (A) 


Exponent (B) | 


B>0 


B = 


B<0 


A>0 


Compute the 
function value 


Function 
value = 1 


Compute the 
function value 


A = 


Function 
value = 


Error message 
244 or 
245 


Error message 
244 or 
245 


A<0 


Error message 
253 or 
263 


Function 
value = 1 


Error message 
253 or 
263 



Figure 10.1. Exponentiation with Real Base and Exponent 



Base (C) 
C = P + Qi 


Exponent (J) | 


J>0 


J = o 


J<o 


P > and 
Q>0 


Compute the 
function value 


Function 
value =1 + Ot 


Compute the 
function value 


P >Oand 
Q = 


Compute the 
function value 


Function 
value =1 + Oi 


Compute the 
function value 


P > and 
Q<0 


Compute the 
function value 


Function 
value =1 + Of 


Compute the 
function value 


P = and 
Q>0 


Compute the 
function value 


Function 
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Figure 10.2. Exponentiation with Complex Base and Integer 
Exponent 
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Service Subroutine Subprograms 



The service subprograms supplied in the vs Fortran library are divided into two 
groups: One group tests for mathematical exceptions and the other groups perform 
utility functions. Service subprograms are called by the appropriate entry name in a 
vs FORTRAN language call statement. 

Mathematical Exception Jest Subprograms 

These subprograms test the status of indicators and may return a value to the call- 
ing program. In the following descriptions of the subprograms, J represents an 
integer value. 

Overflow Indicator Subprogram 
Entry Name: OVERFL 

This subprogram tests for an exponent overflow or underflow exception and 
returns a value that indicates the existing condition. After testing, the overflow 
indicator is turned off. This subprogram is called by using the entry name overfl in 
a CALL statement. The source language statement is: 

CALL OVERFL (j) 

The value of 7 is returned by the subprogram to indicate the following: 

1 = floating-point overflow condition has occurred last. 

2 = no overflow or underflow condition has occurred. 

3 = a floating-point underflow condition has occurred last. 

Note: A value for 7 of 1 or 3 indicates that condition was the last one to occur. An 
overflow followed by an underflow in the same statement would be recorded as 
condition 3— "underflow occurred last." 

Divide Check Subprogram 
Entry Name: DVCHK 

This subprogram tests for a divide-check exception and returns a value that indi- 
cates the existing condition. After testing, the divide-check indicator is turned off. 
This subprogram is called by using entry name dvchk in a call statement. The 
source language statement is: 

CALL DVCHK (J) 

where: 

j is set to one if the divide-check indicator was on; or to 2 if the indicator was off. 
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Uf'tlify Subprograms 

The utility subprograms perform two operations for the Fortran programmer: 
they either terminate execution (exit) or dump a specified area of storage (dump/ 

PDUMP). 

End Execution Subprogram 

Entry Name: EXIT 

The end execution subprogram terminates execution of the load module and 
returns control to the operating system. (Except that no operator message is pro- 
duced, EXIT performs a function similar to that performed by the stop statement.) 
This subprogram is called by using the entry name exit in a call statement. The 
source language statement is: 

CALL exit 



,y 



Storage Dump Subprogram 

Entry Names: DUMP/PDUMP, CDUMP/C3>DUMP 

These subprograms dump character data. 

Entry names dump/pdump dump a specified area of storage. Either of two entry 
names (dump or pdump) can be used to call the subprogram. The entry name is 
followed by the limits of the area to be dumped and the format specification. The 
entry name used in the call statement depends upon the nature of the dump to be 
taken. 

If execution of the load module is to be terminated after the dump is taken, entry 
name dump is used. The source language statement is: 
where: 

CALL DUMP (fl„ b„fi a„, 6„./„) 

a and 6 are variables that indicate the limits of storage to be dumped (either a or b 
may represent the upper or lower limits of storage). 

/ indicates the dump format and may be one of the integers given in Figure 11. 
A sample printout for each format is given in Appendix E. 



W-, 



VS FORTRAN 


specifies hexadecimal 


1 specifies logical*! 


2 specifies logical *4 


3 specifies integer *2 


4 specifies integer *4 


5 specifies real *4 


6 specifies real *8 


7 specifies complex *8 


8 specifies complex *16 


9 specifies literal 


10 specifies real* 16 


1 1 specifies complex *32 



Figure 11. DUMP/PDUMP Format Specifications 

If execution is to be resumed after the dump is taken, entry name PDUMP is 
used. The source language statement is: 

CALL PDUMP (au b,,/,,.. ., a„. 6„./„) 

where a, b, and/ have the same meaning as for DUMP. 



28 VS FORTRAN Library Reference 









Programming Considerations 

A load module or phase may occupy a different area of storage each time it is 
executed. To ensure that the appropriate areas of storage are dumped, the follow- 
ing conventions should be observed. 

If an array and a variable are to be dumped at the same time, a separate set of 
arguments should be used for the array and for the variable. The specification of 
limits for the array should be from the first element in the array to the last element. 
For example, assume that a is a variable in common, b is a real number, and 
TABLE is an array of 20 elements. The following call to the storate dump 
subprogram could be used to dump table and B in the hexadecimal format and 
terminate execution after the dump is taken: 

call dump (TABLE(l), TABLE(20),0,B,B,0) 

If an area of storage in common is to be dumped at the same time as an area of 
storage not in COMMON, the arguments for the area in common should be given 
separately. For example, the following call to the storage dump subprogram could 
be used to dump the variables A and B in real* 8 format without terminating 
execution: 

call PDUMP (A,A,6,B,B,6) 

If variables not in common are to be dumped, each variable must be listed 
separately in the argument list. For example, if R, P, and Q are defined implicitly in 
the program, the statement 

CALL PDUMP (R,R,5,P,P,5,Q,Q,5) 

should be used to dump the three variables in real m format. If the statement 

CALL PDUMP (R,Q,5) 

is used, all main storage between R and Q is dumped, which may or may not 
include P, and may include other variables. 

If an array and a variable are passed to a subroutine as arguments, the arguments 
in the call to the storage dump subprogram in the subroutine should specify the 
parameters used in the definition of the subroutine. For example, if the subroutine 
SUBI is defined as: 

subroutine SUBI (C,Y) 
DIMENSION X (10) 

and to call to SUBI within the source module is: 

DIMENSION A (10) 



CALL SUBI (A, B) 

then the following statement should be used in SUBI to dump the variables in hex- 
adecimal format without terminating execution: 

CALL PDUMP (X(l), X(10), 0, Y, Y, 0) 

If the statement 

CALL PDUMP (X(l), Y, 0) 
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is used, all storage between (i) and y is dumped because of the method of transmit- 
ting arguments. <^ 
When hexadecimal (0) or literal (9) is specified, the programmer should realize ^--*^ 
that the upper limit is assumed to be of length 4. 

Storage Dump Subprogram 
Erttry Names: CDUMP/CPDUMP 

This subprogram dumps a specified area of storage, which contains character data 
only. Either of two entry names (cdump or cpdump) can be used to call the 
subprogram. The entry name is followed by the limits of the area to be dumped. 
The entry name used in the call statement depends upon the nature of the dump 
to be taken. 

If execution of the load module is to be terminated after the dump is taken, entry 
name cdump is used. The source language statement is: 

CALL CDUMP (oi, bi. . . . , a„ , b„) 

where: 

a and b are variables that indicate the limits of storage to be dumped. 

A sample printout for each format is given in Appendix E. 

If execution is to be resumed after the dump is taken, entry name cpdump is used. 
The source language statement is: 

CALL CPDUMP (fl„ bi a„, b„ ) 

where a, and b, have the same meaning as for cdump. 

If Cj is a character variable of length 8 and c^ is a character array of dimension 10 ^ 
and length 15 then the statement: y^z 

CALL CPDUMP (c,. c^ (1). c, (10) ) 

will dump the variable c^ and all the array elements of array C2 in character format 
and continue execution. 

Programming Considerations 

A load module may occupy a different area of storage each time it is executed. To 
ensure that the appropriate areas of storage are dumped, the following conventions 
should be observed. 

If an array and a variable are to be dumped at the same time, a separate set of 
arguments should be used for the array and for the variable. The specification of 
limits for the array should be from the first element in the array to the last element. 
For example, assume that A is a variable in common, B is a real number, and 
TABLE is an array of 20 elements. The following call to the storate dump 
subprogram could be used to dump table and B in the hexadecimal format and 
terminate execution after the dump is taken: 

CALL CDUMP (oi, bi. . . . . a„ , b„) 

If an area of storage in common is to be dumped at the same time as an area of 
storage not in common, the arguments for the area in COMMON should be given 
separately. For example, the following call to the storage dump subprogram could 
be used to dump the variables a and B in real*8 format without terminating 
execution: 



CALL PDUMP (A,A,6,B,B,6) 



Q 
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Algorithms 



This chapter contains information about the method by which each mathematical 
function is computed. The information for expHcitly called subprograms is arranged 
alphabetically according to the specific function of each subprogram (i.e., absolute 
value, exponentiation, logarithmic, etc.). The individual entry names associated 
with each subprogram are arranged logically from simple to complex within each 
function. For example, the heading "Square Root Subprograms" will have algo- 
rithms arranged in the following order by entry name: sqrt, dsqrt, csqrt, C3dsqrt. 

Information for the implicity called subprograms is arranged alphabetically 
according to function, and alphabetically by entry name within that function. For 
example, the heading "Complex Multiply and Divide Subprograms" will have 
algorithms arranged in the following order: cddvd#/cdmpy#, cdvd#/cmpy#. 

The information for each subprogram is divided into two parts. The first part 
describes the algorithm used; the second part describes the effect of an argument 
error upon the accuracy of the answer returned. 

The presentation of each algorithm is divided into its m^or computational steps; 
the formulas necessary for each step are supplied. For the sake of brevity, the 
needed constants are normally given only symbolically. (The actual values can be 
found in the assembly listing of the subprograms.) Some of the formulas are widely 
known; those that are not so widely known are derived from more common for- 
mulas. The process leading from the common formula to the computational for- 
mula is sketched in enough detail so that the derivation can be reconstructed by 
anyone who has an understanding of college mathematics and access to the com- 
mon texts on numerical analysis. Many approximations were derived by the so- 
called *'minimax'' methods. The approximation sought by these methods can be 
characterized as follows. Given a function fix), an interval /, the form of the 
approximation (such as the rational form with specified degrees), and the type of 
error to be minimized (such as the relative error), there is normally a unique 
approximation to fix) whose maximum error over / is the smallest among all 
possible approximations of the given form. Details of the theory and the various 
methods of deriving such approximation are provided in standard reference. The 
accuracy figures cited in the algorithm sections are theoretical, and they do not 
take round-off errors into account. Minor programming techniques used to 
minimize round-off errors are not necessarily described here. 

The accuracy of an answer provided by these algorithms is influenced by two fac- 
tors: the performance of the subprogram (see the chapter, "Accuracy Statistics") 
and the accuracy of the argument. The effect of an argument error upon the 
accuracy of an answer depends solely upon the mathematical function involved 
and not upon the particular coding used in the subprogram. 

A guide to the propagational effect of argument errors is provided because 
argument errors always influence the accuracy of answers whether the errors are 
accumulated prior to use of the subprogram or introduced by newly converted 
data. This guide (expressed as a simple formula where possible) is intended to 
assist users in assessing the effect of an argument error. 
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The following symbols are used in this chapter to describe the effect of an 
argument error upon the accuracy of the answer: 

SYMBOL EXPLANATION 

g(x) The result given by the subprogram. 

f{x) The correct result. 

f(x)-gix) 



The relative error of the result 
f(^x) given by the subprogram. 

8 The relative error of the argument. 

^ |/(*)~g(^)| The absolute error of the result 

given by the subprogram. 
A The absolute error of the argument. 

The notation used for the continued fractions complies with the specifications 
set by the National Bureau of Standards.^ 

Although it is not specifically stated below for each subroutine, the algorithms is 
the chapter were programmed to conform to the following standards governing 
floating-point overflow/underflow. 

• Intermediate underflow and overflows are not permitted to occur. This pre- 
vents the printing of irrelevant messages. 

• Those arguments for which the answer can overflow are excluded from the 
permitted range of the subroutine. This rule does not apply to CDABS and CABS. 

• When the magnitude of the answer is less than 16 "®\ zero is given as the 
answer. If the floating-point underflow exception mask is on at the time, the 
underflow message will be printed. 

Control of Program Exceptions in Mathematical Functions 

The vs FORTRAN mathematical functions have been coded with careful control of 
error situations. A result is provided whenever the answer is within the range 
representable in the floating-point form. In order to be consistent with vs 
FORTRAN control of exponent overflow/underflow exceptions, the following types 
of conditions are recognized and handled separately. 

When the magnitude of the function value is too large to be represented in the 
floating-point form, the condition is called a terminal overflow; when the mag- 
nitude is too small to be represented, a terminal underflow. On the other hand, if 
the function value is representable, but if execution of the chosen algorithm causes 
an overflow or underflow in the process, this condition is called an intermediate 
overflow or underflow. 

Function subroutines in the vs FORTRAN library have been coded to observe the 
ibllowing rules for these conditions: 

1. Algorithms which can cause an intermediate overflow have been avoided. 
Therefore an intermediate overflow should occur only rarely during the execu- 
tion of a function subroutine of the library. 

2. Intermediate underflows are generally detected and not allowed to cause an 
interrupt. In other words, spurious underflow signals are not allowed to be 
given. Computation of the function value is successfully carried out. 

3. Terminal overflow conditions are screened out by the subroutine. The argu- 
ment is considered out of range for computation and an error diagnostic is 
given. 

For more information, see Milton Abramowitz and Irene A. Stegun (editors). Handbook of Mathematical Functions, Applied 
Mathematics Series-SS (National Bureau of Standards, Washington, D.C., 1965). 
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4. Tenninal underflow conditions are handled by forcing a floating-point under- 
flow exception. This provides for the detection of underflow in the same 
manner as for an arithmetic statement. Terminal underflows can occur in the 
following function subroutines: exp, dexp, atan2, datan2, erfc, and derfc. 

For implicit arithmetic subroutines, these rules do not apply. In this case, both 
terminal overflows and terminal underflows will cause respective floating-point 
exceptions. In addition, in the case of complex arithmetic (implicit multiply and 
divide), premature overflow/underflow is possible when the result of arithmetic is 
very close to an overflow or underflow condition. 



'C 
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Explicitly Called Subprograms 

Absolute Value Subprograms 

ABS/IABS 

Algorithm 

If x < 0, 1 x| = —X Otherwise | jc| = x 

CABS/CDABS 

Algorithm 

1. Write |x + i[/| = a + ib. 

2. LetUi = max ( |x|, |t/| ), andt?2 = min ( IxL \y\ ). 

3. If characteristics of Vi and Vz differ by 7 (15 for cdabs) or more, or if t?2 = 0, 
then a = t?i, & = 0. 

4. Otherwise, 



a = 2»i;i* Jv4 + y4(-^y,and& = 0. 

If the answer is greater than 16®^, the floating-point overflow inteiruption will 
take place (see Appendix C). The algorithms for both complex absolute value 
subprograms are identical. Each subprogram uses the appropriate real square root 
subprogram ( sqrt or dsqrt ) . 

CQABS 

Algorithm 

1. Write I X -I- />| = a + ib. 

2. Let Vi = max (|x|, Ij'I), and Vg = min (|x|, Ij'I). 
LetW-'^v^K 16". 

3. If characteristics of Vj and Vg differ by 15 or more, or if Va = 0, then a = Vj, 
b=0. 

4. Otherwise, let Wj = 16^-" • Vj, and Wg = 16^-" • Vj. 

5. Compute w = V Wj^ -|- Wz"^ . Then a = 16""^ w and Z> = 0. 

6. The scaling factor W -^ is easy to construct. Scaling is carried out by short pre- 
cision divisions, and the restoration is carried out by extended precision 
multiplication. 

Effect of on Argument Error 

€ ~-^8(x) +-^ 8Cx) where 8(x) and 8{y) are relative erros inherent in 
the real part and the imaginary part of the argument, respectively. 



\^\ 
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Arcsine and Arccosine Subprograms 

ARSIN/ARCOS 
Afgorlthiii 

1. If ^ 3C ^ %, then compute arcsin ( x ) by a continued fraction of the foim: 

arcsin (x) ^x + x^ • F where 
P _ dt d2 

(X2 + Ci) + (X2 + C2)' 

The coefficients of this formula were derived by transforming the minimax 
rational approximation (in relative error, over the range O^x^^^) for 
arcsin (x)/x of the following form: 

arcsin(x) r Ui + azx^ "] 

—IT- ^ "^ + '^''Ibo + b.X^ + X'} 

Minimax was taken under the constraint that Co = 1 exactly. The relative error 
of this approximation is less than 2~-"^. 
If ^ X ^ %, arccos(x) is computed as: 

arccos(x) —-^— arcsin(x). 

2. If % < x^ 1, then compute arccos(x) essentially as: 

arccos(x) = 2 • arcsin I ^ — r — 1. 
This case is now reduced to the first case because within these limits, 



os^ii^s 



This computation uses the real square root subprogram ( sqrt ). 
If % < X ^ 1, arcsin(x) is computed as: 

arcsin(x)=-| — arccos(x). 

Implementation of the above algorithms (steps 1 and 2) was carried out with care 
to minimize the round off errors. 

3. If — 1 ^ X < 0, then arcsin(x) = — arcsin |x| 
andarccos(x) = -n- — arccos |x|. 
This reduces these cases to one of the two positive cases. 

Effect of an Argument Error 

E '-' , ., o - For small values of x, E -— A. Toward the limits ( ± 1) of the 
y/ I " x^ \ / 

range, a small A causes a substantial error in the answer. For the arcsine, € '^ B 

if the value of x is small. 

ASIN/ACX)S 

Algorithm 

If X is R*4, then ASIN(x) = ARSIN(x) and ACOS(x) = ARCOS(x) 

If x is R*8, then DASIN(x) = DARSIN(x) and DACOS(x) = DARCOS(x) 

If x is R*16, then QASIN(x) = QARSIN(x) and QACOS(x) = QARCOS(x) 
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DARSIN/DARCOS 

Algorithm 

1. If ^ X ^ V^, then compute arcsin(rc) by a continued fraction of the fonn: 

arcsin(a:) ^x + x^ • F where 

di dz ds d^ 



F = Ci + 



(X^ + C2) + (X2 + C3) + (X2 + C4) + (x^ + CsY 



The relative error of this approximation is less than 2~^'^-2. 
The coefficients of this formula were derived by transforming the minimax 
rational approximation ( in relative error, over the range ^ x^ ^ ^ ) for 
arcsin( x ) /x of the following form: 

arcsin(x) ^ Fax + a2X~ + a-sx* + a^x^ + asx®"] 

- =flo ^\ij^ + }y^x~ + box* + hx^ + x8 J' 

Minimax was taken under the constraint that a© = 1 exactly. 
If ^ X ^ \^, arccos(x) is computed as: 

arccos(x) =— — arcsin(x). 
2. If ^/^ < X ^ 1, then compute arccos (x) essentially as: 
arccos(x) = 2 • arcsin I ^ — r — I. 
This case is now reduced to the first case because within these limits, 



This computation uses the real square root subprogram (dsqrt). 
If 1/^ < X ^ 1, arcsin(x) is computed as: 

arcsin(x) = — arccos(x). 

Implementation of the above algorithms (steps 1 and 2) was carried out with care 
to minimize the round-off errors. 
3. If — 1 ^ X < 0, then arcsin(x) = — arcsin |x|, and arccos(x) = ir — arccos |x|. 
This reduces these cases to one of the two positive cases. 

Effect of an Argument Error 

A 

E '^ ,, . For small values of x, £ —' A. Toward the limits ( ± 1 ) of the 

range a small A causes a substantial error in the answer. For the arcsine, c ~ 8 if 
the value of x is small. 

DASIN/DACOS 

These names are aliases for DARSIN and DARCOS. 



H..^- 
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QARSIN/QARCOS 

Algorithm 

1. If ^ a: ^"2; then compute arcsin (x) by a minimax rational approximation of 

the following form: 

w = 2^2, and r j^ r . . . *i i 

arcsm Txj ^ x + x • >v [ \^ ^ t\ w 4 . . . + b, y^ A- W^ j 

Coefficients { a, , ^, } were determined by a minimax technique and the relative 
error of this approximation is less than \6~^^. The order of evaluating this 
rational form was so chosen as to reduce round-off errors. 

If 0^ X ^ -y , arccos (x) is computed as: 
arccos (x) = "y— arcsin (x). 

2. If-y < X ^ 1, then compute arccos (x) essentially as: 



arccos (x) = 2 • arcsin 



{pf^) 



Or more specifically, w = \ — x, z = V2(l— x), and 
arccos (x) ^ z + z w [oq + tho above rational form]. 

This case is now reduced to the first case because, within these limits. 

This computation uses the square root subroutine (qsqrt). 
If 2 < X ^ 1, arcsin (x) is computed as: 

arcsin 6J ="2"— arccos (x). 

3. If — 1 ^ X < 0, then arcsin 6c>> = —arcsin | x| 

and SLTccosfx) — ir —arccos | x| . 
This reduces these cases to one of the two positive cases. 

Effect of an Argument Error 
A 

£— / | _ ■; . For a small value of x, £" ~- A. Towards the limits (±1) of the 

range, a small A causes a substantial error in the answer. For arcsin, € ~ 8 if the 
value of X is small. 
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Arcfangent Subprograms ^^ 

ATAN 

Algorithm 

1. Reduce the computation of arctan («) to the case ^ x ^ 1, by using 

arctan ( — x) = - arctan (jc), or 



arctan I -rr I =-^ — arctan |x|. 



fe)- 

2. If necessary, reduce the computation further to the case |a:| ^ tan 15° by using 

/Vl • 2C - 1\ 
arctan (x) = 30° + arctan I — -g i. 



The value of , .-a 
X + y/3 

tan 15° < X < 1. The va! 



V3*x- 1 



s tan 15° if the value of x is within the range, 
ue of ( V 3 • X — 1 ) is computed as 



(V3 — l)x — 1 + xto avoid the loss of significant digits. 

3. For [x| ^ tan 15°, use the approximation formula: 

arctan ( x ) n 55913709 
^' - 0.60310579 - 0.05160454x2 + "-^^^"^'^ 



x2 + 1.4087812 • 



This formula has a relative error less than 2~^''-^ and can be obtained by 
transforming the continued fraction 

r2 



X" 



arctan (^) _ , _ x^ 5 



(75 3375 \ 

— -=rx-2 + I 10~*, but the true 

4*5 



value of w is 



The original continued fraction can be obtained by transforming the Taylor 
series into continued fraction form. 



Eff«ct of an Argument Error 

l+x 
of 8 upon € diminishes. 



^ "^ ~r~r~2' For small values of x, « -^ 8; as the value of x increases, the effect 



ATAN/ATAN2 

Algorithm 

1. For arctan ( Xi, X2 ) : 

If Xi < 0, use the identity arctan (xj, X2) = —arctan ( —Xi, Xa). 
Hence we may assume that Xi ^ 0. Then: 

Xi ^ 

> 224, the answer = -r-. ^■ 



If either X2 = or 

Xi 



X2 



If X2 < and 
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X2 



M 

< 2~24, the answer = ir. / 









For the general case, if X2 > 0, the answer = arctan I — i, and 

iix2 <0, the answer = ir — arctan I — I . 

2. The computation of arctan I pH I above, or of arctan(x) for the single argu- 
ment case, follows the algorithm given for the subprogram atan with a 
single argument. 

Effect of an Argum0nt Error 

E '-' -7—, — 7. For small values of x, « ^ 8, and as the value of x increases, the eflFect 
of c upon S diminishes. 

DATAN 

Algorithm 

1. Reduce the computation of arctan ( x ) to the case ^ x ^ 1 by using 

arctan( — x) = — arctan(x) and 

arctan , , =-; — arctan Ixl. 
Ix] 2 ' ' 

2. If necessary, reduce the computation further to the case |x| ^ tan 15° by using 

/V3«x- 1\ 

arctan(x) = 30° + arctan I ; — =- I. 

__ \ X + V3 / 

|V3 » X - 1| 
The value of ; 7=n ^ tan 15°, if the value of x is within the range tan 
I X + V3 I ~~ 

15° < X ^ 1. The value of ( V3 • x - 1) is computed as ( V3 - 1) x - 1 + x 
to avoid the loss of significant digits. 

3. For lx| ^ tan 15°, use a continued fraction of the form: 
arctan(x) F Ci Ca 



X 






The relative error of this approximation is less than 2~^^''. 
The coe£Bcients of this formula were derived by transforming a minimax 
rational approximation ( in relative error, over the range ^ x- ^ 0.071797 ) 
for arctan(x)/x of the following form: 

arctan(x) , F^o +CiX- + c.iX* + c-jx""! 

- - ao + x2 Ldo + diX-' + d2X* + x«i 

Minimax was taken under the constraint'that flo = 1 exactly. 

Effect of an Argumonf Error 

E '^ rr—, — 7- For small values of x, « ^^ 8, and as the value of x increases, the efiFect 
1 + X- 

of c upon S diminishes. 

DATAN/DATAN2 

Algorithm 

1. For arctan ( Xi, x^ ) : 

If Xi < 0, use the identity arctan (xi, X:.) = —arctan ( — Xi, Xa). 
Hence we may assume that Xi ^ 0. Then: 



If either X2 = or 



> 2^", the answer = -5-. 
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Ifa:2<0and 



Xi 



< 2-*", the answer = w. 



X2 

For the general case, iix2>0, the answer = arctan I h-H j , and 

if X2 < 0, the answer = v — arctan I HH I. 

2. The computation of arctan I h— j j above, or of arctan(x) for the single argu- 
ment case, follows the algorithm given for the subprogram DATANwith a single 
argument. 

Effttct of on Argument Error 

E /-^ Y~Z. — 2 • ^"*^ small values of x, c -^ S, and as the value or x increases, the effect 
of e upon B diminishes. 

QATAN/QATAM2 
Algorithm 

1. For arctan(x), if x < 0, then arctan(x) = --arctan(|x|). So assume x ^ 0. 

2. Define breakpoints )8i, t = 0, 1, 2, . . . , 8 as j8i = tan I — ~ — v J . 
Define origins 6i to be approximately t« ir, f = 0, 1, 2, . . . , 8 in such a way 

that tan di are exact short form numbers, ^s = "5- exactly. 

3. /8( ^ X < ^<+i for i = 0, 1, 2, . . . , 7, then use the following reduction: Vj^ 

arctan(x) = ^i + arctanf —7—^ — - — ~- I 
^ ' y 1 + X tan ^i / 

If ^8 ^ X < 00, use the reduction: 

arctan(x) = -^ + arctan 1 I . 

Note the quantity within the parentheses on the right is in either case within 
the basic range (/3o, /3i), that is, is less than-rr-in magnitude. 

4. Within the basic range — 7^ ^ x ^ 1^ , a minimax approximation of the fol- 
lowing form is used to compute arctan (x) : 

arctan (x) as x + ai x* + 02 ^i:* + • • • + fli2 x'** 
The relative error of this approximation is less than 2~^^^. 
It is suflBcient to compute the last three terms in double precision. 

5. For arctan ( Xi, X2 ) : 

If Xi < 0, use the identity arctan (xi, X2) = — arctan ( |xi|, X2). 
Hence we may assume that Xi ^ 0. Then: 

X2 



if either X2 = or 



> 2*^*, the answer as -r- . 



If X2 < and 



Xi 



Xi 



< 2-^*2^ the answer ss v. 



For the general case, if X2 > 0, the answer = arctan | — ^ 
if X2 < 0, the answer = v — arctan I 



j ,and 
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Here arctan I xj / ^^ computed as described in steps 1 through 4 above, 
except for the following simplification for the case Ps ^ ~ < oo : 

arctanl — ^ I = -?- + arctan | — if. i . 

This combines two needed extended precision divisions into one for this case. 
Effect of an Argument Error 

E r^ — — ; — —, For a small value of %, c '-' 8, and as the value of x increases, the 

i + X'' 

effect of 8 upon c diminishes. 
Error Functions Subprograms 

ERF/ERFC 

Algorithm 

1. If ^ oc ^ 1, then compute the error function by the following approximation: 

erf(x) ^ x{aQ + OiX^ + a-^x^ + . . . + CaX^^). 

The coefficients were obtained by the minimax approximation (in relative 
error) of erf(x)/ac as a function of x^ over the range ^ x^ ^ 1. The relative 
error of this approximation is less than 2~-*^. The value of the complemented 
error function is computed as erfc(x) = 1 — erf(x). 

2. If 1 < X < 2.040452, then compute the complemented error function by the 
following approximation : 

erfc (x) = bo + b^z + b^z- + ... + b^z^ 
where z = x — To and To = 1.709472. The coefficients were obtained by the 
minimax approximation (in absolute error) of the function f{z) = erfc(z + 
To) over the range - 0.709472 ^ z ^ 0.33098. The absolute error of this 
approximation is less than 2~-^^^. The limits of this range and the value of the 
origin To were chosen to minimize the hexadecimal round-off errors. The value 

of the complemented error function within this range is between -rz^ and 0.1573. 

The value of the error function is computed as erf (x) = 1 — erfc(x). 

3. If 2.040452 ^ x < 13.306, then compute the complemented error function by 
the following approximation: 

erfc(x) s e""^ ' F/x where z = x- and 

Ci + C2Z + CsZ^ 

" "^ d,z + d2Z^ + z^' 

The coefficients for F were obtained by transforming a minimax rational 
approximation (in absolute errors, over the range 13.306-^ ^w^ 2.040452-2) 
of the function f{w) = erfc(x) • x • e^', u; = x"^, of the following form: 

flo + fliti? + a2W- + a-dtv^ 
/(ti,) = bo + brw + w' • 

The absolute error of this approximation is less than 2-^*-^ This computation 
uses the real exponential subprogram (exp). 

If 2.040452 ^ X < 3.919206, then the error function is computed as 

erf(x) = 1 — erfc(x). 

If 3.919206 ^ X, then the error function is = 1. 
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4. If 13.306 ^ X, then the error function is ^ 1, and the complemented error func- 
tion is ^ ( underflow ) . 

5. If X < 0, then reduce to a case involving a positive argument by the use of the 
following formulas: 

erf( — x) = — erf(x), anderfc ( — x) = 2 — erfc(x). 

Effect of an Argunfiif Error 

E '^^ e -''" • A . For the error function, as the magnitude of the argument exceeds 1, 
the eflPect of an argument error upon the final accuracy diminishes rapidly. For 
small values of x, c '-' S. For the complemented error function, if the value of x is 

greater than 1, erfc(x) -^ —z — . Therefore, « -^ 2 x* • 5. If the value of x is negative 

or less than 1, then e '^ e~** • A. 

DERF/DERFC 

Algorithm 

1. If ^ X < 1, then compute the error function by the following approximation: 

erf(x) ^ x(ao + CiX^ + aaX^ + . . . + fluX^^). 

The coefficients were obtained by the minimax approximation (in relative 
error) of erf(x)/x as a function of x^ over the range ^ x^ ^ 1. The relative 
error of this approximation is less than 2"**®®. The value of the complemented 
error function is computed as erfc(x) = 1 -- erf(x). 

2. If 1 ^ X < 2.040452, then compute the complemented error function by the 
following approximation: 

erfc(x) ^bo + h^z + b^z^ + . . . foigz^* 

where z = x — To and To = 1.709472. The coefficients were obtained by the 
minimax approximation (in absolute error) of the function /(z) = erfc(z + To) 
over the range -0.709472 ^ z ^ 0.33098. The absolute error of this approxi- 
mation is less than 2"®"^. The limits of this range and the value of the origin 
To were chosen to minimize the hexadecimal round-oflF errors. The valtte of the 

complemented error function within this range is between -rrjr and 0.1573. The 

value of the error function is computed as erf (x) = 1 — erfc(x). 

3. If 2.040452 ^ x < 13.306, then compute the complemented error function by 
the following approximation: 

erfc(x) ^ e~* • F/x where z = x^ and 

„_ dx dj de di 

~^" (z-l-Ci)-l- (Z + C2) + "• (z + ce) + (z + Ct)* 

The coefficients for F were derived by transforming a minimax rational approxi- 
mation (in absolute errors, over the range 13.306"^ ^ tu ^ 2.040452"^) of the 
function f{w) — erfc( x ) • x • e **, u) = x"^, of the following form: 

flo + OiU) + OiW^ -J- . . . + ajw'' 
^^^' ^ bo + biw + bzw^ -H . . . + bew^ -Huj^* 

The absolute error of this approximation is less than 2~*^". This computation 
uses the real exponential subprogram (dexp). If 2.040452 ^ x < 6.092368, then 
the error function is computed as erf ( x ) = 1 — erfc( x ) . 
If 6.092368 ^ X, then the error function is ss 1. 

4. If 13.306 ^ X, then the error function is ss 1, and the complemented error 
function ^ (underflow). 



v_r;. 
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5. If X < 0, then reduce to a case involving a positive argument by the use of the 
following formulas: 

erf(— x) = — erf(x),anderfc ( — x) = 2 — erfc(x). 

£ff«cf of on Argummnt Error 

E ^ e~^^ • A. For the error function, as the magnitude of the argument exceeds 
1, the eflFect of an argument error upon the final accuracy diminishes rapidly. For 
small values of x, e --^ 8. For the complemented error function, if the value of 



_x2 



'^ =e-^ 



X is greater than 1, erfc(x) --' — r — . Therefore, t ^ 2x^ • S. li the value of x 
is negative or less than 1, then « '^ e~^'- • A. 

QERF/QERFC 

Algorithm 

1. If0^x^l,then: _ 

Write ^(z) = ~7- erf (x) where z = x^ 

Then x.2xa'+ ^ = "^^ ^ (erf(x) ) where «' = » 

that is 2za' + a = e-*' 
Then 2za" + 3a' = -e—' = - (2za' + a) 
so that 2zfl" + (2z + 3) a' + a = 
Now integrate twice 

z 

2za' + 2za + a — / adz - A where A is a constant 



But if z = then x = and a = 1 so that A = 1 
Hence ? , 

_ 1 J ^ttZ 

2a'-\-2a+- ---^ = 

z z 

and / * ) 

m 

Now write o = 1 + 2 ajZ* as an approximation to a and solve 

m 

Where T* = 2 T*, i X x' is the Chebyshev polynomial over the appropriate 

range. 

Equating coeflRcients of powers of z and multiplying the coefficient / of z' by i*- 

we have: 

3ai + 1 = T T* 

m+l, 1 

10fl2 + Sfli = 4 T* 

m+l, 2 



m(2m + l)a + (2m - 1) am - 1 = m^rT* 

m m+l, m 

(2m + l)am= (m+ 1)2tT* 

m+l, m+l 
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and we can solve these equations to obtain 

2 2 2 

-j= ai, -= 02, . . .-= a.„ and t. ^-^ 



^. 



Thenerf(x) =x+(-^- l\x + x'% ^-4a,Vx2)* 

2. If l^:c^ 2.84375, then: 

Write fo(z) = erfc(x) where z = x — f ,, 

Thenfc'= ^e-*^ 

y/ir 

2 
and b' = -^ 2 x e-*^ 

sothatfo" + 2(z + fo)&' = 
Now integrate twice 

b' + 2{z + to)b-2Jbdz='A 

fo + 2(z + «o) / bdz -iffbdzdz ^ Az + B 

m 

Letfo = 2 fei z* be an approximation to fo and solve the equations: 

1=0 

fc + 2(z +to) fbdz-4J fbdzdz = Az + B + rT* + aT* 

m+2 m+1 

Nowz = 0^ A = &'(0) +2*0^(0) = erfc'(«o) + 2foerfc(fo) 
andB = &(0) = erfc (*©) 

Hence the equations solved are: 

feo =Tr* +<rT* +erfc(*o) 

m, tn+1, ■ /^ ^ 

&i +2 tobo = T T* + <T r* + erfc' (*o) + 2 fo erfc (fo) V^A 

m, 1 m+1, 1 >' 

^2 + tobi = T T* + <r T* 

m, 2 m+1, 2 

^3 +4-^1 + 4*0^2 =rT* +aT* 

«J ^ m, 3 m+1, 3 



m{m — i) m „, m m+l. m 



(m + l)m m+1 *" m.m+l mm, m-l 

2m , __ „^ 

(m + 2)(m+l)''" m+l.m+2 

Finally 

erfc(a!:) — b(z) where z = x — U 

3. If 2.84375 ^ x ^ 13.306, then: 

Write c(z) — xe^^ erfc(x) where z = 1/x* 

Then c'=i— + 2xc 4x1 -~r 

i.e. 2zV+ (z + 2)c=— 4 

m+1 

Let ' c = 5 CiZ* be an approximation to c and solve the equations: 

1=0 

2z2c + (z+ 2)c= -4 + tT* 

y/v m+2 
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Then use the approximation 

to approximate c„, + iZ'" + ^bya polynomial of degree m. 

The equations solved in (A) are: 
2 

2^0 ~ ^'^ 7^*0, +2.0 
Co + 2Ci = T T m + 2.1 



(2m+ 1)C^+2C„+1 =T7*n,+2,m + l 
(2m+3)c„+l =Tr*n,+2,m + l 



Finally: 

erfc (x)= c(z) '^y" where 2= l/x^ 

4. If 13.306 ^ X, then erf 6c>) = 1 and erfc'6c> = 0. 

5. If 0> X, then erf6c>) = — erf^— xA and erfc6c>) = 2 — erfcC— xA 

Effect pf on Argumenf Error 

£'-^-x2 . ^ pqj. tjjg grror function, as the magnitude of the argument exceeds 
1, the effect of an argument error upon the final accuracy diminishes rapidly. 
For small values of J, € ~ 8. For the complicated error function, if the value of 

A-X'2 

A'is greater than 1 , erfc (x) '"^Ty~* 

Therefore, c — 2A'2 • g. if the value of x is negative or less than 1, then 
c ~ e-*2 • A, 

Exponenilai Subprograms 

EXP 

Algorithm 

1. If X < — 180.218, then is given as the answer via floating-point underflow. 

2. Otherwise, divide x by logc.2 and write 

X 

y = 1 — r- — 4a — b — d 
^ loge2 

where a and b are integers, ^ b ^ 3 and Q^d < 1. 

3. Compute 2"'' by the following fractional approximation: 

2d 
2-rf s 1 



617.97227 
0.034657359^2 + d + 9.9545948 



d^ + 87.417497 
This formula can be obtained by transforming the Gaussian continued fraction 

zzzzzzzz 



e-~' = 1 - 



1+ 2- 3+ 2- 5+ 2~ 7+ 2' 



The maximum relative error of this approximation is 2~^*. 

Multiply 2-*' by 2-^ 

Finally, add the hexadecimal exponent a to the characteristic of the answer. 
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within the ranse ^ ?• <* — • ^oil^ '^is r«ar1iirf-inn ic onrripH rait in an extra 



EfF«cf of on Argument Error ^^^-^ 

« — A. If the magnitude of x is large, even the roundoff error of the argument A^Jf 
causes a substantial relative error in the answer because A = 8 • x 

DEXP 

Algorithm 

1. If X < — 180.2187, then is given as the answer via floating-point underflow. 

2. Divide x by loge2 and write 

x= lia-b - ^ j • loge2 - r 

where a, h, and c are integers, ^ fc ^ 3, ^ c ^ 15, and the remainder r is 

J. 

16 
precision to ensure accuracy. Then e* = 16" • 2"^ • 2~<'/^* • e"*". 

3. Compute e~'" by using a minimax polynomial approximation of degree 6 over 

the range ^ r < -Tr- • loge2. In obtaining coefficients of this approximation. 
Id 

the minimax of relative errors was taken under the constraint that the constant 

term a© shall be exactly 1. The relative error is less than 2""'**''^. 

4. Multiply e-*^ by 2-^/^«. The 16 values of 2-<^/i« for ^ c ^ 15 are included in 
the subprogram. Then halve the result h times. 

5. Finally, add the hexadecimal exponent of a to the characteristic of the answer. 

Effect of an Argument Error 

c ~ A. If the magnitude of x is large, even the roundoff error of the argument /^^ 
causes a substantial relative error in the answer because A = S • x. Vj»^, 

i 

CEXP/CDEXP 

Algorithm 

The value of e^+*^ is computed as e-^ • cos(t/) + i* e^ • sin(y). The algorithms for 
both complex exponential subprograms are identical. Each subprogram uses the 
appropriate real exponential subprogram (exp or dexp) and the appropriate real 
sine/ cosine subprogram (cos/ sin or dcos/dsin). 

Effect of on Argument Error 

The effect of an argument error depends upon the accuracy of the individual 
parts of the argument. If e' +*" = R • e"*, then H — y and c(R) ^-w a (ac). 

QEXP 

Algorithm 

1. Basic computation is that of 2^ For QEXP entry, multiply xby log,e in a 31 hex- 
adecimal digit arithmetic, and raise the result to the power of 2. 

2. Decompose xas x=^ 4p — q — r where /> is an integer, ^ = 0, 1, 2, or 3, and ^ 
r<l. 

3. Find two indices ij, 0^ / ^8,0^7 ^3 such that 4/ + y is the integer nearest to 
32r. 

Using these indices, select two encoded constants a,, /3y where 

«/ = [2-^*1, jSy^U-^'^a 
Here the bracket indicates rounding to the nearest 17 binary digit number. (f ) 

Obtain the product ^I'j, = ai^j, ^4' 
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4. Obtain the reduced argument s^ —r^ logg (^(^) accurately by subtracting logg 
("^ff) — log2 oil + log2 /3; + in an extra precision. Constants logs a /and logs pj 

((^ are encoded in 31 hexadecimal digits of accuracy. Then s is approximately 

bounded by ±"^ 

5. Compute 2* by a minimax approximation of the form: 



1 + 



■ 2sP(sV, ■ 
Q(sV''Sp(sV 



where Pand Qare polynomials of degree 2. 

6. Then 2'= 16' • (2~«^(,) • 2* . In assembling this product a virtual rounding 
is applied. 

7. The limited use of extra precision arithmetic in the above computation 
enhances accuracy of both QEXPand A** 5 application (see note below). 

f ffecf of an Argunnnt Error 

€ — A. If the magnitude of x is large, even the roundoff error of the argument 
causes a substantial relative error in the answer because A = 5 • x. 



GQEXP 

Algorithm 

The value of e' + '> is computed as e' • cos (y) + / • e^ • sin (y). The algorithms 
for both complex exponential subprograms are identical. Each subprogram uses 
the appropriate real exponential subprogram (qexp) and the appropriate real sine/ 
cosine subprogram (qcos/qsin). 

Effect of an Argument Error 

The effect of the argument error depends upon the accuracy of the individual parts 
of the agreement. If e^ + '>=/? • e''', then H - yand « r/?>) — A (x). 

Gamma and Log Gamma Subprograms 

GAMMA/ALGAMA/LGAMMA 

Algorithm 

1. If < a: ^ 2-252^ then compute log-gamma as loger(x) ^ — loge(x). 
This computation uses the real logarithm subprogram ( alog ) . 

2. If 2 -2*^2 < X < 8, then compute log-gamma by taking the natural logarithm of 
the value obtained for gamma. The computation of gamma depends upon the 
range into which the argument falls. 

r(x + 1) 

3. If 2--'^ < X < 1, then use r(x) = to reduce to the next case. 

X 

4. If 1 ^ X ^ 2, then compute gamma by the minimax rational approximation ( in 
absolute error) of the following form: 

z[ao + aiZ + flaz^ + flaz^] 
^^""^ ^ ''^ "^ bo + b^z + hz^ + z» 

where z = x — 1.5. The absolute error of this approximation is less than 2~25». 

5. If 2 < X < 8, then use r(x) = (x — 1) r(x — 1) to reduce step by step to the 
preceding case. 

6. If 8 ^ X, then compute log-gamma by the use of Stirling's formula: 
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loger(x) - X(l0ge(x) - 1) - % loge(x) + % loge(27r) + G(x). 

The modifier term G(x) is computed as 
G(x) =doX-^ + dix--. 

These coefficients were obtained by a form of minimax approximation minimiz- 
ing the ratio of the absolute error to the value of x. The absolute error is less 
than X • 2~^*2^ Remembering the fact that x < log^r(x) in this range, the 
contribution of this error to the relative error of the value for log-gamma is less 
than 2~2*-2. This computation uses the real logarithm subprogram ( alcx;). 
For gamma, compute r(x) = e", where y is the value obtained for log-gamma. 
This computation uses the real exponential subprogram (exp). 

Effect of an Argumont Error 

e '^ ^ (x) • A for gamma, and £ '^ i/r (x) • A for log-gamma, where *{/ is the 
digamma function. 

If — < X < 3, then —2 < if/ (x) < 1. Therefore, E /-^ A f or log-gamma. How- 

ever, because x = 1 and x = 2 are zeros of the log-gamma function, even a small 
8 can cause a substantial e in this range. 

If the value of x is large, then ijj (x) — lege (x). Therefore, for gamma, e ~ 8 
X • loge (x). In this case, even the roundoff error of the argument contributes 
greatly to the relative error of the answer. For log-gamma with large values of jc, 
e~8. 

DGAAAMA/DLGAMA/LGAMMA 

Algorithm ^^"\ 

1. If < X ^ 2-252^ then compute log-gamma as loger(x) s — loge(x). ^"^ ^| 
This computation uses the real logarithm subprogram ( dlog ) . 

2. If 2-252 <; X < 8, then compute log-gamma by taking the natural logarithm 
of the value obtained for gamma. The computation of gamma depends upon the 
range into which the argument falls. 

r(x + 1) 

3. If 2-2'*2 < X < 1, then use r(x) = to reduce to the next case. 

4. If 1 ^ X ^ 2, then compute gamma by the minimax rational approximation ( in 
absolute error) of the following form: 

z [gp + fliz -H . . . -H aez^] 
r(x) = Co + ^^ ^ ^^^ ^ ^ ^^^e + ^1 

where z = x — 1.5. The absolute error of this approximation is less than 2-'"-^. 

5. If 2 < X < 8, then use r(x) = (x — 1) r(x — 1) to reduce to the preceding 
case. 

6. If 8 ^ X, then compute log-gamma by the use of Stirling's formula: 

loger(x) -X(l0ge(x) " 1) - % loge(x) + % log«(2^) +G(x). 

The modifier term G(x) is computed as 

G(x) ^ dox-^ + dix-^ + diX-^ + d^x-"^ + d^-^. 

These coefficients were obtained by a form of minimax approximation minimiz- 
ing the ratio of the absolute error to the value of x. The absolute error is less 
than X • 2-**^. Remembering the fact that x < loger(x) in this range, the 
contribution of this error to the relative error of the value for log-gamma is less 
than 2-'** -^ This computation uses the real logarithm subprogram (dlog). For 
gamma, compute r(x) = e*, where y is the value obtained for log-gamma. 
This computation uses the real exponential subprogram ( dexp ) . 
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Effect of an Argument Error 

c '-' i/^(x) • A for gamma, and E ^^ \l/(x) • A for log-gamma, where ^ is the 
digamma function. 

li -^ < X <3, then -2 < tp(x) <l. Therefore, E ^ A for log-gamma. How- 
ever, because x — I and x = 2 are zeros of the log-gamma function, even a small 
8 can cause a substantial e in this range. 

If the value of x is large, then \l/{x) ^ log«.(x). Therefore, for gamma, 
£ '-' 8 • X • loge(x). In this case, even the round-off error of the argument con- 
tributes greatly to the relative error of the answer. For log-gamma with large 
values of X, € '-' 8. 

LGAMMA 
Algorithm 

If xis R*4, then LGAMMA (x) = ALGAMA (x). 
If xis R*8, then LGAMMA (xj = DLGAMA (x). 

Hyperbolic Sine and Cosine Subprograms 

SINH/COSH 

Algorithm 

1. If jxj < 1.0, then compute sinh ( X ) as: 

sinh(x) ^ X + CiX^ -h C'iT? -I- c-^x} . 
The coefTicient c. were obtained by the minimax approximation (in relative 

error) of -^ — as a function of x ^. The maximum relative error of this 

approximation is l'"^^^. 

2. If X ^ 1.0, then sinh(x) is computed as: 

sinh(x) = (1 + 8) [e-'+'"K.»' - t;2/e'+ '"«.''■]. 

Here, 1 + 8 = — , so that this expression is theoretically equivalent to 

[e^ — e~^]/2. The value of u (and consequently those of log^t; and 8) was so 
chosen as to satisfy the following conditions: 

a) t) is slightly less than Vz, so that 8 > and small. 

h ) logetJ is an exact multiple of 2"^**. 
The condition b) ensures that the addition x + loge v is carried out exactly. This 
maneuver was designed to reduce the roundoff errors and also to enlarge the 
limits of acceptable arguments. This computation uses the real exponential 
subprogram (exp). 

3. If X ^ — 1.0, use sinh(x) = — sinh( jx| ) to reduce to case 2 above. 

4. If cosh (x) is desired, then for all valid values of arguments use the identity: 
cosh(x) = (1 + 8) [e^+'"Se'^ + u-'/e' +'•*«']. Here the notation and the consid- 
eration are identical to case 2 above. This computation uses the real exponential 
subprogram (exp). 

Effect of an Argument Error 

For the hyperbolic sine, £ ~ A • cosh (x) and c --^ A • coth(x). 
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For the hyperbolic cosine, E '^ A* sinh(jc) and c --- 8 • tanh(a:). 

Specifically, for the cosine, c '^ A over the entire range; for the sine, « /^ 8 f or 
small values of x. 

DSINH/DCOSH 

Algorithm 

1. If \x\ < 0.881374, then compute sinh(ac) as: 

sinh (x) ^ CoX + CiX^ + CgX* + . . . + CeX^*. 

The coeflBcients Ci were obtained by the minimax approximation (in relative 

sinh(x) 

error ) of as the function of x^. Minimax was taken under the constraint 

' X 

that Co = 1 exactly. The maximum relative error of this approximation is 2"*'-''. 

2. !f X > 0.881374, then sinh(x) is computed as: 

sinh(x) = (1 + 8) [e-^+'"«." - uVe^+'^s."]. 

Here, 1 + 8 = — , so that this expression is theoretically equivalent to 

[e* — e~'']/2. The value of v (and consequently those of loge« and 8) was so 
chosen as to satisfy the following conditions: 

a) t? is slightly less than %, so that 8 > and small. 

b ) loget? is an exact multiple of 2-*®. 
The condition b ) insures that the addition x + loget; is carried out exactly. This 
maneuver was designed to reduce the round-off errors and also to enlarge the 
limits of acceptable arguments. This computation uses the real exponential sub- 
program (dexp). 

3. If X ^ —0.881374, then use sinh(x) = — sinh( |x[ ) to reduce to case 2 above. 

4. If cosh(x)is desired, then, for all valid arguments use the identity: 
cosh(x) = (1 + 8) [e^ +"«.'' + u^/e^+'^Ke"]. Here the notation and the consid- 
eration are identical to case 2 above. This computation uses the real exponential 
subprogram (dexp). 

Effect of an Argument Error 

For the hyperbolic sine, £ ~ A • cosh(x) and « -^ A • coth(x). 

For the hyperbolic cosine, E ^^ A • sinh(x) and c --^ A • tanh(x). 

Specifically, for the cosine, « ~ A over the entire range; for the sine, « -^ 8 f or 
the small values of x. 

QSINH/QCOSH 

Algorithm 

1. If [x[ < 1 then compute sinh(x) as: 

sinh(x) ^ CoX + Cir^ + C20^ + . . . + Ci2X^^. 
The coefficients Ci were obtained by the minimax approximation (in relative 

error) of as the function of x*. Minimax was taken under the constraint 

' X 

that C() = 1 exactly. The maximum relative error of this approximation is less 
than 2- "2. 

2. If X ^ 1 then sinh ( x ) is computed as : 

sinh(x) = (1 + 8) [e*+'«».'' - tj2/e*+'*'«.*]. 

Here, 1 + 8 = -j—^ so that this expression is theoretically equivalent to 

[e* — e-'^]/2. The value of v (and consequently those of loget? and 8) was so (Jj 

chosen as to satisfy the following conditions. ) 



\^\ 
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a) D is slightly less than -«- , so that 8 > and small. 

b ) logeO is an exact multiple of 2~ **. 

The condition b) insures that the addition x + logpt? is carried out exactly. This 
maneuver was designed to reduce the round-oflF errors and also to enlarge the 
limits of acceptable arguments. This computation uses the exponential subpro- 
gram. Accuracy of the quotient t)2/e'+'<'«.'' is not critical if x is large. For x > 
21.85, a double precision division yields a suflBciently accurate result. 

3. If X ^ — 1 then use sinh(x) = — sinh( \x\) to reduce the case to 2 above. 

4. If cosh(x) is desired, for all allowable arguments use the identity: cosh(x) 
= (1 + 8) [e'+">«f." + t)-7e'+'"V]. Here the notation and the consideration 
are identical to the case 2 above. 

Effect o^ an Argument Error 

For hyperbolic sine, E — A • cosh(.r) and « /-w a • coth(x). For hyperbolic cosine, 

E -^ A • sinh(x) and « ^^ 8 • tanh(x). In other words, for cosine, c '— A over the 

the entire range; for sine « ~ 8 for small values of x. 

Hyperbolic Tongenf Subprograms 

TANH 

Algorithm 

1. If |x|^ 2-12, then tanh(x) s x. 

2. If 2-*2 ^ |3c| ^ 0.7, use the following fractional approximation: 
tanh(x) r 0.8145651 ") 



r 0.8145651 1 

-^^^iQQQ^^^^^ x^^ 2.471749 } 



The coefiBcients of this approximation were obtained by taking the minimax 
of relative error, over the range x^ < 0.49, of approximations of this form under 
the constraint that the first term shall be exactly 1.0. The maximum relative 
error of this approximation is 2~^" "*. 

2 

3. If 0.7 <x< 9.011, then use the identity tanh(x) = 1 - . ^.^ . y 

The computation for this case uses the real exponential subprogram (exp). 

4. If X ^ 9.011, than tanh(x) ss 1. 

5. Ifx< —0.7, then use the identity tanh(x) = — tanh(— x). 

Effect of Oft Argument Error 

2a 
E — ( 1 — tanh^ x) A, and e ^ . , .^ . . For small values of x, c '^ 8, and as the 
^ ' smh (2x) 

value of X increases, the effect of 8 upon € diminishes. 

DTANH 

Algorithm 

1. If |x| ^ 2-=*^ then tanh(x) s x. 

2. If 2--** < |x| < 0.54931, use the following fractional approximation: 

tanh(x) diX^ da d^ 

— - — s Cu + .... . _ — r + 



x'^ + ci + x^ + C2 + x2 + ca • 

This approximation was obtained by rewriting a minimax approximation of the 
following form: 

tanh(x) Co + UiX^ + dx* 

— - — ss Co + x* • 



bo + bix^ + bax* + x« • 
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Here the minimax of relative error, over the range x^ ^ 0.30174, was taken _.,.^^ 

under the constraint that Co shall be exactly 1.0. The maximum relative error of (| J 
the above is 2~®*. 

2 

3. If 0.54931 ^ X < 20.101, then use the identity tanh(x) = 1 STXT* 

This computation uses the double precision exponential subprogram (dexp). 

4. If X ^ 20.101, then tanh( x ) ^ 1. 

5. If X ^ - 0.54931, then use the identity tanh(jc) = - tanh( - x). 

Effect of on Argum^nf Error 

2 A 

E ^ (1 - tanh2 x) A, and c -- . , ,^ , • For small values of x, e ~ 8. As the 

smh (2x) 

value of X increases, the effect of 8 upon e diminishes. 

QTANH 

Algorithm 

1. If J.t| ^ 0.54931, use a minimax fractional approximation of the following form: 

tann^x; _ .t-h ^^ _^ ^^^^ _j_ ^^,^ _^ ^_^^„ _^ ^^^„ _^ ^,^ 

Approximation of this form attains accuracy better than 2"*^^ for x in the above 
range. 

2. If 0.54931 < X ^ 39.1628, compute tanh(x) with the aid of the exponential 

subroutines as follows: 

2 
tanh(x) = 1 .. , - . 

Here if x > 21.14, the division is carried out in double precision to save execu- A'A 

tion time. The quotient term is so small relative to 1 that double precision is V-^i, 

accurate enough. 

3. If X > 39.1628, then tanh(x) s 1. 

4. If X ^ —0.54931, then use the identity tanh(x) = — tanh( — x) to reduce the 
case to either 3. or 4. above. 

Effect of an Argument Error 

2a 
E ~ ( 1 — tanh^ x) A, and e ~ .,,., . For small values of x, e ^ §. As the value 
^ ' smh(2x) 

of X increases, the effect of 8 upon « diminishes. 

Logarithmic Subprograms (Common and Natural) 

ALOG/ALOG10 

Algorithm 

1. Write X = 16** • 2~« • m where p is the exponent, q is an integer, ^ g ^ 3, 
and m is within the range, ^ ^ m < 1. 

2. Define two constants, a and b (where a = base point and 2"* = a), as follows: 

If ^ < m < "~=, then a = % and b = I. 

— V2 

If ~J=- ^ m < 1, then a = 1 and fo = 0. 

m — a 1 + z 

3. Write z = ; — . Then, m = a* -. and \z\ < 0.1716. 

m + a 1 — z ' ' 



1 -z 
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4. Now, jc = 2*"- " - * • } ^ ^ , and loge ix) = (4p- q- b) lege 2 + log, 



m 






5. To obtain logeli 1, first compute w = 2z = 77-= — , t\ e (which is repre- 

\ 1 — Z J U.J/W T" U.JQ 

sented with slightly more significant digits than z itself), and apply an approx- 
imation of the following form: 

These coeflBcients were obtained by the minimax rational approximation of 

1 /l + z\ 

■^-logel yi; — I over the range z^ c (0, 0.02944) under the constraint that Co 

shall be exactly 1.0. The maximum relative error of this approximation is less 
than 2-25-33, 

6. If the common logarithm is desired, then logioX = logioe • logeo:. 
Effect of an Argumenf Error 

E — b. Specifically, if 8 is the roundoff error of the argument, for example, 
S — 6 • 10"^, then £—8 6 • 10""^. Therefore, if the argument is close to 1, the 
relative error can be very large because the value of the function is very small. 



DL06/DLOG10 

Algorithm 

1. Write a: = IG** • 2""* • m where p is the exponent, q is an integer, ^ g ^ 3, 
and m is within the range % ^ m < 1. 

2. Define two constants, a and b (where a — base point and 2~^ = a), as follows: 

If % ^ m < -7=, then a = % and fe = 1. 

If —== ^ m < 1, then a = 1 and fe = 0. 

tn — a 1 + z 

3. Write z = : — . Then, m=^ a* -z and \z\ < 0.1716. 

m + a 1 — z ' ' 

1 + z /I + z\ 

4. Now,x = 2*"-^-^ • . _ , andlogeoc = {4p - q — b) loge2 + loge I .. __ j. 

5. To obtain loge l , _ — ^1, first compute w = 2z = ^ — +05 (which is repre- 
sented with slightly more significant digits than z itself), and apply an approx- 
imation of the following form: 



log, 



These coefficients were obtained by the minimax rational approximation of 

1 /l + z\ 

r— loge I T~ir~ I over the range z^ c ( 0, 0.02944 ) under the constraint that Co 

shall be exactly 1.0. The maximum relative error of this approximation's less 
than 2-«« 55 
6. If the common logarithm is desired, then logioX = logioC • logeX. 

Effect of on Argutifni Error 

E ^ B. Therefore, if the value of the argument is close to 1, the relative error can 
be very large because the value of the function is very small. 
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CLOG/CDLOG 

Algorithm 

1. Write loge (ac + it/) = a + «&• 

2. Then, a — loge \x + ty| ^'^d ^ ~ ^h® principal value of arctan iy,x). 

3. loge 1^ + it/| is computed as follows: 

Let Vi = max ( \x\, \y\ ), and i?2 = min ( |x|, \y\ ). 

1 
Let t be the exponent of t?i, i.e., tJi = m • 16*, -r^ ^ m < 1. 



Finally, let fi = |^_li£^>>0|, 

and s = 16'i. 
Then, loge \x + iu\ = 4U • loa.(2) + ^^ log^ ff ~ V + ( -^ ) 



^,^,^4 



Computation of v^/^and Vg/s are carried out by manipulation of the characteristics 
of Vi and Vg. In particular, if Vg/sis very small, it is taken to be 0. The algorithms for 
both complex logarithm subprograms are identical. Each subprogram uses the 
appropriate real natural logarithm subprogram (aloc or DLOC) and the appropriate 
arctangent subprogram (ATAN2 or DATAN2). 

Effect of an Argumont Error 

The eflFect of an argument error depends upon the accuracy of the individual 

parts of the argument. lix ■¥ iy = r* e** and loge (x + iy) = a + ib, then h = b 

and£(a) = 8{r). 

QLOG/QLOG10 

Algorithm 

1. Decompose jcas jc = 16" • 2"0 • w, where-^-sS m < 1. 

2. Make an estimate of logzm and define three indices ;Si / Sii 8, Si / ;^ 3, 
;^ A: 3S 4 so that 20/ + 5/ + k'ls the nearest integer to — 160 • log2m. Using 
these indices, select three constants «/, /3y, y* where 

a, = [2-*/«], fii = [2->/«2], y, = [2-*/i«>]. 
Here the bracket indicates rounding to the nearest 17 digit binary number. 
Obtain the exact product Vfj^ = <Xifijyk by use of ME and MXD instructions. 
The 18 short constants (Xi, Pj, and yt are encoded in the subroutine. 

3. Denote z = (m - 'Pijk)/{m + Vy^). 

Compute k; = 2z/loge(2) = (m - v»,.^,,.)/[0.5- loge(2) • (m + ViyOl- 

The computed w is bounded approximately by ± ^gx , and it has 112 bit 
accuracy. 

4. Compute loga I -rz — I ~ log-Am) — log2( Vot) as follows: 

log2 I -J-;;;; — -I s u) + GiW^ + a^w^ + . . . + OsW^^ 
where coeflBcients {a„] have been obtained by the minimax technique. 
log2 I , _ I is approximately bounded by ±:^[v[r. This value is computed 
with ftill 28 hexadecimal digit accuracy, and the absolute error is at most 16"**. 

5. Now log2(ac) = 4p - <jr + log2ai + logg^^y + logzy* + log2(j~|) • ^ x 

log2ai, logifij, and log2yfc are encoded with 31 hexadecimal digits of accuracy. /^-^ 

Combine these components in such a way that the maximum absolute error is ^ 
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still 16""^^ approximately. This is done to improve accuracy of A**B applica- 
tion ( see Note below ) . 
6. Truncate logo(jc) at the 28th hexadecimal digit, and multiply by loge(2) or by 
logio(2) to obtain log,.(x) or logi()(x) as desired. 

Eff«cf of an Argumenf Error 

£ '^ 8. Therefore, if the value of the argument is close to 1, the relative error can 

be very large, because the value of the function is very small. 

LOG/LOG 10 
Algorithm 

If X is R*4, then LOG (x) = ALOG(x) and LOGlO(x) = ALOGlO(x). 
If xis R*8, then LOG(x) = DLOG(x) and LOGlO(x) = DLOGlO(x). 
If xis R*16, then LOG(x) = QLOG(x) and LOGlO(x) = QLOGlO(x). 

CQLOG 

Algorithm 

1. Write loge(x + ft/) = fl + ib 

2. Then, a = log,. |x -I- iy\ and b = the principal value of arctan(i/,x). 

3. log,, [x + i!/j is computed as follows: 

Let Vi = max( [x[, jt/j ), and v^ = min( |x|, \y\ ). 

Let t be the exponent of Vi, i.e., Ui = m • 16', -r^ ^ m < 1. 

Finally, let tt= ]t-liit>0, 
and s = 16'i. 

Then,logelx + ij/] =4fi-log,(2) + -|-loge[(-^y + (^Yl- 

Computation of v^/s and Vj/s are carried out by manipulation of the charac- 
teristics of Vi and v^. In particular, if Vg/sis very small, it is given the exponent of 
— 16 to avoid characteristic wrap-around. 

Effect of an Argument Error 

E ~ 8. Therefore, if the argument is close to 1, the relative error can be very large 

because the value of the function is very small. 
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Sine and Cosine Subprograms 

SIN/COS 

Algorithm 

4 

1. Define z = — • |x| and separate z into its integer part (q) and its fracticm part 

(r). Then z = qf + r, and [x| = ( "7" * ^ ) + I "7" ' '' )' 

2. If the cosine is desired, add 2 to q. If the sine is desired and if x is negative, 
add 4 to q. This adjustment of q reduces the general case to the computation 
of sin ( X ) for x ^ because 

cos ( ±x) = sin I -y-+ X Land 
sin ( — x) = sin(-7r + x). 

3. Let qo^q mod 8. 

Then, for (/o = 0, sin (x) = sin I "l" * '" I' 

</o = l,sin (x) = cos (-^(1 - r)Y 

qo = 2, sin (x) = cos I "7~ * *■ 1. 

<7o = 3, sin (x) = sin (""^(l - r)), 

</o = 4, sin (x) = - sin (-4-*''). 

qo = 5, sin (x) = - cos (-T-(l - »■) j» 

qo = 6, sin (x) = - cos ("T"*'*). 

(7o = 7,sin(x) = - sin (-J-(1 "»•)). 
These formulas reduce each case to the computation of either sin I "7" ' '"i I 

or cos I "T" • ''i j where fi is either r or ( 1 — r ) and is within the range, 
^ ri ^ 1. 

4. If sin ( "T~ • fi jis needed, it is computed by a polynomial of the following 

The coefficients were obtained by interpolation at the roots of the Chebyshev 
polynomial of degree 4. The relative error is less than 2-28- ^ for the range. 

5. If cos I -J- • fi lis needed, it is computed by a polynomial of the following 
form: 

cos {-^ • fi js 1 + bxTi^ + Vi* +&3ri«. 



form: 

sin 



( \ 
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CoeflScients were obtained by a variation of the minimax approximation which 
provides a partial rounding for the short precision computation. The absolute 
error of this approximation is less than 2~^* '^'. 

Effect of an Argumenf Error 

E '^ A. As the value of x increases, A increases. Because the function value dimin- 
ishes periodically, no consistent relative error control can be maintained outside 

TT IT 

the principal range, — r- ^ x ^ "^ "o"* 

DSIN/DCOS 

Algorithm 

IT 

1. Divide \x\ by" and separate the quotient (z) into its integer part (q) and 

4 
its fraction part (r). Then, z=|x|» — = q -^ r, where q is an integer and r 

IT 

is within the range, ^ r < 1. 

2. If the cosine is desired, add 2 to </. If the sine is desired and if x is negative, 
add 4 to qf. This adjustment of q reduces the general case to the computation of 
sin ( X ) for x ^ 0, because 

cos ( ± x) = sin I \x\ + "S" )' ^'^d 
sin ( — x) = sin ( |x| + ir). 

3. Let qo^q mod 8. 

■W J Then, for <7o = 0, sin (x) = sin I -7- • r I, 

qfo = 1, sin(x) = cos (-^-(l - r)), 

qo = 2, sin (x) = cos ( -7-' r), 

qo = 3,sin(x) = sin (^(1 - r)), 

go = 4, sin (x) = -sin ("T"*'')> 

qo = 5, sin (x) = -cos (-^(1 - r)), 

(70 = 6, sin (x) = - cos (—•rj, 

qo - 7, sin (x) = - sin ("^(l - »*)). 

These formulas reduce each case to the computation of either sin I -j- • fi j 

or cos I "7" ' ^1 I > where fi is either r or ( 1 — r ) , and is within the range, 
^ fi ^ 1. 






4. Finally, either sini — • fi lor cos 1 ~7~ * '"x lis computed, using the polynomial 

interpolations of degree 6 in fi^ for the sine, and of degree 7 in fi^ for the cosine. 
In either case, the interpolation points were the roots of the Chebyshev poly- 
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nomial of one higher degree. The maximum relative error of the sine polynomial 
is 2~^ and that of the cx)sine polynomial is 2"®*-*. 

Cff«cf of an Argumont Error 

£ ~ A. As the value of the argument increases, A increases. Because the function 
value diminishes periodically, no consistent relative error control can be main- 
tained outside of the principal range, — 5-^ x ^ "*""o"' 

CSIN/CCOS 

Algorithm 

1. If the sine is desired, then 

sin(x + iy) = sin(x) • cosh(^) + i • cos(a:) • sinh(y). 
If the cosine is desired, then 

cos(x + iy) = cos (x) • cosh(y) — i • sin(x) • sinh(y). 

2. The value of sinh(x) is computed within the subprogram as follows. 
Assume x ^ for this, since sinh( — x) = — sinh(x). 

3. If X ^ 0.346574, then use sinh (x) = % (e* - — Y 

4. If ^ X < 0.346574, then compute sinh(x) by use of a polynomial: 

sinh(x) 

s ao + fli^^ + 02^' 

The coefficients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range ^ x^ ^ 0.12011 under the constraint that 
flo shall be exactly 1.0. The relative error of this approximation is less than 

2—26.18^ 

5. The value of cosh(x) is computed as cosh (x) = sinhjxj + "~i^« 

This computation uses the real exponential subprogram (exp) and the real sine/ 
cosine subprogram (sin/cos). 

Effect of an Argumont Error 

To understand the eflFect of an argument error upon the accuracy of the answer, the 
programmer must imderstand the effect of an argument in the sin/cos, exp, and 
sinh/ COSH subprograms. 



CDSIN/CDCOS 
AlgorHhm 

1. If the sine is desired, then 

sin (x+iy) = sin(x) • cosh(y) + i • cos(x) • stnh(2/). 
If the cosine is desired, then 

cos(x + iy) — cos(x) • cosh(^) — t • sin(x) • sinh(y). 

2. The value of sinh(x) is computed within the subprogram as follows. 
Assume x ^ for this, since sinh( — x) = — sinh(x). 

3. If X ^ 0.481212, then use sinh(x) = % (e» - -i-). 

4. If ^ X < 0.481212, then compute sinh(x) by use of a polynomial: 

sinh(x) 



"A^i 
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The coeflBcients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range ^ x^^ 0.23156 under the constraint 
that Co shall be exactly 1.0. The relative error of this approximation is less 
than 2-«« oT. 

5. The value of cosh(x) is computed as cosh (x) = sinhjx] +—[7;-. 

This computation uses the real exponential subprogram (dexp) and the real 
sine/ cosine subprogram (dsin/dcos). 

Effect of an Argument Error 

To understand the effect of an argument error upon the accuracy of the answer, 
the programmer must understand the effect of an argument error in the dsin/dcos, 
DEXP, and dsinh/dcosh subprograms. 

QSIN/QCOS 
Algori'fhin 

1. Separate the argument into an integral multiple of -y- and the remainder part: 

|x| = -r- • (7 + r where q is an integer, and j- — ^ '^ ~T ' 

In this decomposition, after q is estimated in the working precision, r is accu- 
rately computed as r = \x\ — -^' q with the aid of approximately 10 hexa- 
decimal guard digits. 

2. Add 1 to ^jf if cosine is desired, since cos( ±x) == sin I -or+ x I . 

C\ / 

Add 2 to q if sine is desired and x is negative, since sin( — x) = sin(7r + x). 

These adjustments reduce the general case to computation of sin ( x ) for x ^ 0. 

3. Let </o^ q mod 4. Then, 

if qro = 0, sin(|x|) = sin(r) 
qfo = 1, sin( |x| ) = cos( r) 
<7o = 2, sin(|xj) = --sin(r) 
qfo = 3, sin( |x| ) = — cos(r) 

4. Compute sin ( r ) or cos ( r ) as follows : 

sin(r) s f + ttir^ + ast^ + . . . + flnr--* 

cos(r) s 1 + bir" + bar" + ... + bvjr"* 
CoeflScients {oj}, (fej) are determined by the minimax technique as applied to 
the range ^ r ^ — . The relative errors of these approximations are less 
than 2- "2. 

Effect of an Argument Error 

£ — A. As the value of x increases, A increases. Because the function value dimin- 
ishes periodically, no consistent relative error control can be normally maintained 

outside the principal range x- ^ x ^ + -7^ . 

CQSIN/CQCOS 

Algorithm 

1. If the sine is desired, then 

sin(x + iy) = sin(x) •cosh(t/) -f i'cos(x) •sinh(i/). 
If the cosine is desired, then 

cos (x + iy) = cos(x) •cosh(t/) — i*sin(x) •sinh(j/). 
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2. The value of sinh(a(:) is computed within the subprogram as follows. 
Assume x ^ for this, since sinh (—x) = — sinh ( x ) . 

3. If X ^ 0.481212, then use sinh(x) = —(e" - ~\ . 

4. If ^ x < 0.481212, then compute sinh(x) by the use of the polynomial: 

X 

The coefficients were obtained by the minimax approximation (in relative 
error) of sinh(x)/x over the range ^ x^ ^ 0.23156 under the constraint that 
fl« shall be exactly 1.0. The relative error of this approximation is less than 2~^*^. 
The highest three terms of this polynomial need only be evaluated in double 
precision. 

5. The value of cosh(x) is computed as cosh(x) = sinh Ix| H — • 

Effect of an Argument Error 

Combine such effects on sine/ cosine/ hyperbolic-sine/ hyperbolic-cosine functions 

according to the formula in step 1 of the algorithm. 

Square Root Subprograms 

SQRT 

Algorithnt 

1. If X = 0, then the answer is 0. 

2. Write x = 16-^-* • m, where 2p — q is the exponent and q equals either or 1; 

m is the mantissa and is within the range -t-t ^ m < 1. 

_ ** 16 — /^"^\ 

3. Then, ^/x = 1&" 4-"^/ m. V^\ 

4. For the first approximation of V ^> compute the following: 



t/o = 16* • 4-« • 



/ 1.288973 \ 

(1.681595- ^^3^^^^^ ). 



This approximation attains the minimax relative error for hyperbolic fits of ylc. 
The maximum relative error is 2"^-^^**. 
5. Apply the Newton-Raphson iteration 

v.^. = ^ ("" + i) 

twice. The second iteration is performed as 

with a partial rounding. The maximum relative error of t/2 is theoretically 

Effect of an Argument Error 
1 

DSQRT 
Algorithm 

1. If X = 0, then the answer is 0. 

2. Write x = 162»-<? • m, where 2p - q is the exponent and q equals either or 1; 

m is the mantissa and is within the range -— ■ ^ m < 1. 

16 
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3. Then, ^/x = !&>• 4'" \fm. _ 

4. For the first approximation of V^> compute the following: 

I/O = 16» • 4^--^ • 0.2202 (m + 0.2587). 
The extrema of relative errors of this approximation for q = are 2~^-^^^ at 

m-l, 2-3 205 at m = 0.2587, and 2-^ »25 at m = -jg . This approximation, rather 

X 

than the minimax approximation, was chosen so that the quantity ^3 be- 

low becomes less than 16^- "^ in magnitude. This arrangement allows us to 
substitute short form counterparts for some of the long form instructions in the 
final iteration. 

5. Apply the Newton Raphson iteration 



y..^, = %[y.+j-) 



four times to t/o, twice in the short form and twice in the long form. The final 
step is performed as 

y. = !,a + % (-^ - !/s) 

with an appropriate truncation maneuver to obtain a virtual rounding. The 
maximum relative error of the final result is theoretically 2~^^^^. 

Effect of an Argument Error 
1 

CSQRT/CDSQRT 

Algorithm 



1. Write \/ X + iy — a -\- ih. 

\\x\ + jx + iy\ , , 

2. Compute the value z = */ r as fc • V t^i + «^2 where k, Wi and Ws 

are defined in 3 or 4, below. In any case let t>j = max ( |ac[, jt/| ) and 

t)2 = min(|ac|, |t/|). 

3. In the special case when either V2 = or v, greatly exceeds Vj, let <«>, = v^ and 
0)2 = Vi so that w, + a>2 is effectively equal to v,. 

Also let fc = 1 if Vi = \x\ and 

k = 1/V"2iffi = \y\. 

4. In the general case, compute F=^^Va-^Va\—:-) . 

If jx] is near the underflow threshold, then take 

16*1 = |x|, U/2 = u, • 2F, and k — 1/ V2. 
li Vi • F is near the overflow threshold, then take 

Wi — jx|/4, tv-^ = Vi •F/2, and k — V2. 
In all other cases, take to^ — jxj/2, tt^. = V\ • F, and fc = 1. 

5. If z = 0, then o = and fo = 0. 

If z 7"^ and x ^ 0, then a = z, and 

I. y 



If z =7>^ and x < 0, then a = 



, and 



2z 
h = (signt/) 'z. 
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The algorithms for both complex square root subprograms are identical. ^-^^ 
Each subprogram uses the appropriate real square root subprogram (sqrt or '^ j. 
dsqrt). 

Cffecf of an Argument irror 

The eflFect of an argument error depends upon the accuracy of the individual 
parts of the argument. If x + iij — r • e'^ and y/ x + iy = R» e", 

theneCR) - -y 8(r),andc(//) -^(/j). 
QSQRT 

Algorithm 

1. Let X — 16^"+* • m, where p is an integer, </ = or 1, and 

-r^ ^ m < 1. Let Xi = 16-^2-q- . ^ 
Id 

This scaling by 16-^^ is made to avoid intermediate underflows. 

2. Compute the first approximation y» to V^i as follows: 

,„ = 16...4-.|l.807018-5;g^^} 

These coefficients were determined to minimize the relative error of the approxi- 
mation while being exact at m = 1. The maximum relative error is 2 "''•**. 

3. Apply Newton Raphson iteration three times — twice in short form and once in 
long form. 

At the end of the third iteration, the relative error c^ of j/a is at most 2~^*. 

4. Apply to t/3 the following cubic refinement in extended precision: /^ \ 



3t/3 + Xi 

The relative error €4 of j* is 4- (€3)^ or 2-»". 

Since the right hand term is only a correctional term, a simplified extended 
division suflBces. In the process of assembling t/4, a virtual rounding is given. 

5. Replace the exponent of t/4 with the correct exponent p + g. 

Effect of an Argumont Error 
1 . 

CQSQRT 

Algorithm 

1. Write V* + iy = a + ib 

2. Let 162P+9-1 ^ max( \x\, \y\ ) < W^+i, </ = 0, or 1 
Let xi = x' 16-2P, and yi-y 16" ^p. 

This scaling operation is carried out by manipulation of the characteristic fields 
of X and y. In doing this necessary precaution is exercised to avoid the anomaly 
of characteristic wrap-around. 



^K^-' 



3. Compute z,= lM3|L±Sa 



Restore scaling: z = IGP- Zi 

If z = 0, then a = and ?? = 0. 

If 2; 7«^ 0, and x^O, then a = z, and rf 
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If z 7^ and x < 0, then a = 



b- (signt/) 'Z. 

Effect of on Arguwnt Error 

Using polar coordinate, write x + if/ = r • e** and V^c + ti/ = R • e*". 

Then€(R)- -|-S(f), and c(H) <- 8(7i). 

Tangenf and Cotangent Subprograms 

TAN/COTAN 
Algorithm 

1. Divide |x| by -j and separate the result into the integer part iq) and the 
fraction part (r). Then \x\='t(9 "^ f"^- 

2. Obtain the reduced argument ( tt') as follows: 

if q is even, then w = r 
if q is odd, then tt == 1 — r. 

The range of the reduced argument is ^ tf ^ 1. 

3. Let ^0 ^ q niod 4. 

Then for q^ = 0, tan !.t| = tan I -j- • tt* j and cot \x\ = cot I -j- • ir I, 
gi!<\ go = 1, tan '.V; = cot I -J- • t^^ I and cot ;.t! = tan I -j- • it* j, 

qa = 2, tan \x\ = — cot I "7~ * ^t" I and cot 1a| = — tan I — • tt* j, 
^0 = 3, tan '.v, = — tan I "T" * *^' ) ^^^ ^^* i^i ~ "" cot I "T" * ^'' /• 

4. The value of tan (^ • ti; j and cot ( ~ • w j are computed as the ratio of Uvc 

polynomials: 

/ ^ \ tc'Pju) / X \ Q{u) 

tan I -7- • W I ^-prj—r-, cot I -r- • tf I S jrT— r 

where u = %«;- and 

P{u) = -8.460901 + u 

^(ti) = - 10.772754 + 5.703366 • u - 0.159321 • ii-\ 
These coefficients were obtained by the minimax rational approximation (in 
relative error) of the indicated form. The maximum relative error of this 
approximation is 2"^*. Choice of w rather than w^ as the variable for Pand ^is to 
improve the roundoff quality of the coefficients. 

5. If X < 0, then tan(x) = — tan [x\, and cot(x) = — cot |x|. 

6. This program is provided with two kinds of error controls. One is for arguments 
whose magnitude is greater than 2*^ • tt. The other is for arguments which are 
very close to a singularity of the function. In either case, the precision of the 
argument is deemed insufficient for obtaining a reliable result. More specifically, 
the second control screens out the following arguments : 

a) |xj ^ 16~®^ for cotan (the result would overflow). 

b) X is such that one can find a singularity within eight units of the last digit 
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value of the floating-point representation of the sum q + r. Singularities are 
cases when the cotangent ratio is to be taken and m; = 0. 

Effect of on Argument Error 

A 2 ^ 

^ '^ 57~T > and c ~ . ,n \ for tan(x). Therefore, near the singularities 

cos2(x) sin(2bc) ** 

a:== (^^""9") "^^ where k is an integer, no error control can be maintained. This 
is also true for cotan(:r) for x near fcir, where k is an integer. 

DTAN/DCOTAN 

Algorithm 

IT 

1. Divide |a:| by ~ and separate the result into integer part ((7) and the fraction 

part (r). Then jx| =-j-(<7 + r), 

2. Obtain the reduced argument ( u;) as follows: 

if q is even, then xv =^ r 
if q is odd, then w — 1 — r. 

The range of the reduced argument is ^ «; ^ 1. 

3. Let qo^q mod 4. 

Then for qo — 0, tan |xj = tan I — • u; land cot |xl = cot I ~T" * "^ )» 
^0 = 1, tan Ix| = cot I "x • ^ )sind cot lx| = tan 1 -T""* WJ I, 
qo = 2, tan ]x| = - cot I -j- • uj land cot jx| = — tan I — • mj j, 
qo = 3, tan Ix| = - tan (^ • w )and cot |xj = - cot ( -^ . ^^ j. 

4. The value of tan I "7" * «^ ) and cot I -j- • t^ I are computed as the ratio of 
two polynomials: 

tan(^-^-u.jg g(«,2) . andcot (^^ • u> j a. ^ . p^^^ . 

where both P and Q are polynomials of degree 3 in tv'^. The coefficients of P 
and Q were obtained by the minimax rational approximation (in relative error) 

of — tan I — r w I of the indicated form. The maximum relative error of this 
w \ 4 / 

approximation is 2~^^ ". 

5. If X < 0, then tan(x) = — tan |x|, and cot(x) = — cot |x|. 

6. This program is provided with two kinds of error controls. One is for argu- 
ments whose magnitude is greater than 2^*' • ir. The other is for arguments which 
are very close to a singularity of the function. In either case, the precision of 
the argument is deemed insufficient for obtaining a reliable result. More 
specifically, the second control screens out the following arguments: 

a) |xj ^ 16~®^ for cotan ( the result would overflow). 

b) xis such that one can find a singularity within eight units of the last digit 
value of the floating-point representation of the sum q + r. Singularities are 
cases when the cotangent ratio is to be taken and m; = 0. 



"A^-. 
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Effect of an Argumenf Error 

A 2 

£ ^ — T7— T, and € '-' . ,n \ for tan(x). Therefore, near the singularities of 
cos2(x) sm(2a:) ^ ' ° 

a; = Ifc "^ ~a') "^y where k is an integer, no error control can be maintained. 

This is also true for cotan(x) for values of x near k-n, where k is an integer. 

QTAN/QCOTAN 

Algorithm 

1. Separate argument into an integral multiple of -r- and the remainder part: 

\x\ = -^' q + r where q is an integer, and r* ^ »* < "j" • 

In this decomposition, after q is estimated in the working precision, r is accu- 
rately computed as r = |x! — -r- • q with the aid of approximately 10 hexa- 
decimal guard digits. 

2. If cot(x) is desired, add 1 to q, and remember to change the sign of the answer. 

Since cot(x) = —tan i x + -|-l, this reduces the case to computation of 

tangent. 

3. If q is even, tan( [x| ) = tan( r), and the latter is obtained by a minimax approxi- 
mation of the form: 

tan(r) ^ -^ 
where P and Q axe polynomials of degree 6 and 5 respectively. 
If q is odd, tan( lx| ) = — cot( r), and the latter is computed as 

coi{r)- ^p^^2^ 

using the same polynomials as the former case. 

The relative errors of these approximations are less than 2~"^. In evaluating 
these rational approximations, an exponent scaling is used to avoid intermediate 
partial underflows, which can result in a loss of accuracy. 

4. If X < 0, thentan(x) = — tan(|x|), and cot(x) = — cot(|x|). 

Effect of an Argumont Error 

A 2a 

JB -^ :, ' ; \ , and c ^ . ,. , for tan(x). Therefore near the singularities 

c"OS-(x) sm(2x) 

x= lfc+-r-|7r, where k stands for integers, no error control can be maintained. 
This is also true for cot(x) for x near k-n, where k is an integer. 
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Implicitly Called Subprograms 

The entry point names of the following implicitly called subprograms are gener- 
ated by the compiler. 

Complex Multiply and Divide Subprograms 

COVD#/CMPY# (Divide/Multiply for COMPLEXES Arguments) 
CDDVD#/CDMPY# (Divide/Multiply for COMPLEX*16 Arguments) 
Algorithm 

Multiply: {A + Bi) (C + Di) = (AC - BD) + {AD + BC)i 
Divide: {A + Bi)f(C + Di) 
1. If |C|^|D|,set 

A=^B,B= - A,C = D,D= -C, since 

A + Bi B-Ai,, ^ ^ 

— _- — before step 2. 

C + Di D - Ci 

^ B D 

then compute 

A + Bi A' + B'i A' + B'D B' - A'D' 



t. 



C + Di 1 + D'i 1 + D'D' 1 + D'D' 
Error Conditions 

Partial underflows can occur in preparing the answer. 

CQMPY#/CQDVD# (Multiply/Divide for COMPLEX*32 Arguments) 

Algoritlim 

Multiply: (a+bi) (c+di) = (ac—bd) + {ad+bc)i 
Divide: (a+bi)l{c+di) 

1. Let a + bi and c + di be the first and the second operands respectively. 

2. Find exponents pi, p2 which satisfy the following: 

16*1-^ ^ max(|a|, \b\) < 16^1, 16p»-i ^ max(|c|, \d\) < Ifi".. 
Choose q——3iipi^0 
q = 31 if Pi < 

3. Scale c and d by 16^2- ? and change sign of d if CQDVD# : 

Ci = c • 16«-»2 

, _ \d'16''-'>2 ifCQMPY# 

' l-d' 161-^2 ifCQDVD#. 

Here if the exponent adjustment results in underflow, replace the a£Fected 
quantity with 0. 

4. Compute Mi + Cii = ( aci — bdi ) + ( adi + bci ) t 

5. If CQMPY#, restore the scaling to obtain the answer u -¥ vi: 

M = Ml • l&>!i-i and V = Vi' 16^2-". 

6. If CQDVD#, compute the denominator as follows: 

t^l = (Ci2 + di2).16-2a 

Note that I6-2 ^wi<2. 
Then divide: «2 = Ui/wi and 1)2 = vjwi 
Finally, restore the scaling to obtain the answer u -¥■ vi: 
M = M2 • 16-^-^2 and v == V2' 16-«'~*'». 

fffecf of an Argument Error 

In terms of complex vector relative errors, t '^ 8x •¥ 8y where &c is the relative 

error of the first operand and 8y is the relative error of tfie second openuid. 



I 
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Complex Exponentiation Subprograms 
{Exponentiation of a Complex Base to an Integer Power) 
FCDXI# (COMPLEX* 16 Arguments) 
FCXPI# (COMPLEXES Arguments) 

Algorithm 

The value of J/i + yj = (z, + z-J)^ is computed as follows. 

K 
Let 1/1 = J Tfc • 2* where n = or 1 for fc = 0, 1, . . ., K. 

k=:0 

Then z\j\ = n z^^ and the factors z'^\ can be obtained by successive squaring. 

More specifically: 

1. Initially: it = 0, n*»' = |;|, i/i*"' + t/:.""t = 1 + Oi, 
z,(«) + 2;u<")i = z, + zj. 

2. Raise the index fc by 1, and let n^'"" = 2<7 + r, where q is the integer 
quotient and r = or 1. 

3. Let n^''-' = <jr. 

4. If r = 0, then y, "• ' + y.MH = t/, <'■ -' > + y-Z'-'^H. 

If r = 1, then !/,<*•> + t/a<*>t =(t/i<*-^> + i/2<'-'>i) (zi<*-*> + Za^^-^^i)- 

5. If n'^» 4=0,thenz,^'> + z.^^H = (z,(^-i) + Z2^^-'>)^ andsteps2 
through 5 are repeated until n<*^ = 0. 

6. When n<*) = 0, and / ^ 0, then yi + yj = t/i<^) +t/2<^>i. 
If; < 0, then I/, + i/,f = (1+ Ot) / (i/,<^> + y.^). 

(Exponentiation of a Complex Base to a Complex Power) 

FCQXQ# (COMPLEX *32 Arguments) 
FCDXD# (COMPLEX * 16 Arguments) 
FCXPC# (complex *8 Arguments) 

Algorithm 

z, ** z., = exp (za * log z,), where the functions 'exp' and Meg' are CEXP and 
CLOG, CDEXP and CDLOG, or CQEXP and CQLOG respectively as the argu- 
ments are C*8, C*16, or C*32. 

Effect of on Argument Error 

If z, = X, 4- iy, and z, = x, + iy,^ then 
z, ** Zi — exp (fl) * (cos(6) + / sin(^)), where 
fl = X,* log I X, + />, \ — y^* arctan (>',/x,) and 
* = >'2 * log I X, -f iy, I + X, * arctan GJx^) . 

The function z** 22 is calculated using the Fortran routines for sin, cos, exp, log, 
and arctan. 

Therefore the effect of an argument error upon the accuracy of the result depends 
upon its effect in the functions SIN, COS, EXP, LOG, and AT AN. 
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Exponentiation of a Real Base to a Real Power Subprograms 

FDXPD# (REAL*8 Arguments) 
FRXPR# (REAL*4 Arguments) 

Algorithm 

Assume the desired answer is a®. 

\. U a = and ^ ^ 0, error return. 
U a = and b > 0, the answer is 0. 

2. If ^ ?^ and 6 =0, the answer is 1. 

3. All other cases, compute a*" as e'' • '"« ". In this computation the exponential 
subroutine and the natural logarithm subroutine are used. If a is negative or if 
b • logo is too large, an error return is given by one of these subroutines. 

S'TO' SSiiffiafo 

The relative error of the answer can be expressed as («i + c^) ^ • log (a) + «» 
where e,, t-j, and «:{ are relative errors of the logarithmic routine, machine multi- 
plication, and the exponential routine, respectively. 

For FDXPD* c, ^ 3.5;cl0-'«, e., ^ 2.2xl0-i«, and c, ^ 2.0x10-^". Hence the 
relative error ^ 5.7x10- '"x | & • log a | + 2.0x10-^^. Note that b • log a is the 
natural logarithm of the answer. 

For FRXPR# c, ^ 8.3x10-"^, e. ^ 9.5x10-', and es ^ 4.7x10-^ Hence the relative 
error ^ 1.8xl0-« x\b'\oga\+ 4.7x10-'. 

Effect of an Argument Error 

[a( 1 + 8, ) ] !)( 1 + 8:; ) = fl"( 1 + B-jb • log a + bS, ) . Note that if the answer does 
not overflow, \b • log a I < 175. On the other hand b can be very large without 
causing an overflow of a'' if log a is very small. Thus, if a s 1 and if b is very 
large, then the effect of the perturbation Sj of a shows very heavily in the relative 
error of the answer. 

Exponentiation of a Real Base to an Integer Power Subprograms 

FOXPI# (REAL*8 Arguments) 
FRXPI# (REAL*4 Arguments) 
Algorithm 

1. If o = and ^ ^ 0, error return. 

If a = and ^ > 0, the answer is 0. 

2. If a 9^ and b =0, the answer is 1. ^ 

3. The value of y = aJ is computed as follows: Let |/[ = ^ rA2* where r-, — 

A- = 

or 1 for fc = 0, 1, . . ., K. Then a}'\ = 11 a-* and the factors a'-" can be obtained 
b\ successive squaring. 

More specifically: 

1. Initially: fc = 0, n<«> = |;|, t/<«> = 1, and z<0) = a. 

2. Raise the index k by 1, and decompose n'* ~^' = 2q + r, where q is the 
integer quotient and r = or 1. 

3. Let n<'' ' = q. 

4. Ifr = 0, then !/<'•> = !/<'•-'>. 

If r = l,thent/(''' = ?/<*-i'z'*-J). 



\_jt.{ 
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5. If n<^> ={= 0, then z<''' = z^^'~'^^z^^^-\ and steps 2 through 5 are repeated 
until n<') = 0. 

6. When n"' > = 0, and / ^ 0, then y = t/<'- >. If / < 0, then y = —^. 

Note: The negative exponent is computed by taking the reciprocal of the posi- 
tive power. Thus it is not possible to compute 16.0** —64 because there is a lack of 
symmetry for real floating-point numbers — i.e., 16.0**— 64 can be represented, 
but 16.0**64 cannot. The result is obtained by successive multiplications and is 
exact only if the answer contains at most 14 significant hexadecimal digits. 



Exponent laf fon of an Integer Base to an Integer Power Subprogram 

FIXPI# (INTEGERS Arguments) 
Algorithm 

1. If fl = and 6^0, error return. 

If fl = and Z) > 0, the answer is 0. ^ 

2. U a 7^ and b =0, the answer is 1. —I, 

3. The value of L = / ' is computed as follows: Let J = 2-r ta • 2^ where 

k = 

ta = or 1 for A: = 0, 1, . . ., a:. Then /' = n n\ and the factors n' can be 
obtained by successive squaring. ''- "^ " 

More specifically: 

1. Initially: fc = 0, n"" = /, t/'"' = 1, and m"" = /. 

2. Raise the index k by 1, and decompose n'^"^' — 2q + r, where q is the 
integer quotient and r = or 1. 

3. Letn"' = q. 

4. Ifr = 0, then I/"' = j/"-^'. 

Ifr = 1, then I/"' = i/"-^' -m"-". 

5. If n'*' H= 0, then m" * = m"-^* • m" -■^', and steps 2 through 5 are repeated 
until n"' = 0. 

6. Whenn"' = 0, L = L"', 

Note: The result is obtained by successive multiplications. The result is exact 
only if it is less than (2**31) — 1. Results are meaningless when this limit is 
exceeded and may even be of changed sign. No tests for overflow are made. 
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Comp/ex Exponentiation Subprogram 

FCQXI# (COMPLEX*32 Arguments) 'X^J- 

Algorithm 

1. Write (x + yiy = a -I- bi. 

2. Ifx + f/t = + Oiand/>0,thena + &t = + Ot 

3. If / = 0, a + fc« = 1.0 + Of. Assume now J^O. 

4. Let 1/1 = 2 gy 2—^ where g> = or 1, g,, = 1. 

Initiab'ze a© + &o« = ^ + yi- K |/| = 1, skip the following. 
Do the following for / = 1, 2, . . . , n: 






ifgy = 
) a Si = 1 



o^ 



At the end of iteration a„ + fe„f = (x + t/i)'-''. 
5. lf;<o,(. + !,iK = ^M±«_ 

E/F«cf o^ on Argument Error 

|c| ~ / [8j where S is the complex relative error of the base and c is the complex 

relative error of the result due to this. 



Exponentiation of a Base 2 Argument to a Real Power Subprogram 

FQXP2# (REAL* 16 Arguments) 

Algorithm ^ 

This subprogram uses the same algorithm as the QEXP explicit subprogram. i 



Exponentiation of o Real Base to an Integer Power Subprogram 

FQXPI# (REAL* 16 Arguments) 
Algorithm 

1. Write x^ — y 

2. If X = and / > 0, then !/ = 

3. If X ^ 0, and / = 0, then y = 1.0. Assume now J^O. 

4. Let |/[ = 5 gy 2'»-> where gy = or 1, go = 1. 

Initialize t/o = x. If j/j = 1, skip the following. 
Do the following for / = 1, 2, . . . , n: 

^ = $J/Vi ifgy = 

^^ ^t/Vi-* ifgy = l 

At the end of iteration i/„ = xl'l . 

5. If/<0,r'=^ 

Note: The negative power is computed by taking the reciprocal of the positive 
power. Thus it is not possible to compute 16.0** —64 because there is a lack of 
symmetry in real floating point numbers; i.e., 16.0**— 64 can be represented, but 
16.0**64 cannot. 

Elfo€t of ait Argument Error 
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Exponentiation of a Real Base to a Heal Power Subprogram 

FQXPQ# (REAL* 16 Arguments) 

Algorithm 

1. Basically, ac" = 2>' • »*»«.<*>. 

2. More specifically, log2(x) is computed with aimed accuracy of 16"*'' in abso- 
lute error, or 16"^* in relative error, whichever is smaller, by the algorithm of 
QLOG/QLOGIO. The result is kept as two components; the hi^ order part 
is represented by a single precision number; and the low order part, which is 
less than 16~^ in absolute value, is represented by an extended precision 
number. 

3. The product y • log2(x) is obtained by a simulated multiplication to obtain up 
to 31 hexadecimal digits of accuracy. 

4. Raise the result to the power of 2 by the algorithm of QEXP. As stated there, 
this includes a virtual final rounding with the result that one obtains the full 
28 hexadecimal digit accuracy unless x is very close to 1.0. 

Eff«ct of on Argument Error 

€ '^ y ' Bg + y • log(x) -By. The factor t/ • log(x) is limited by 180 in magnitude. 
If beyond this, the result will overflow. However, the other factor y can be very 
large if x is close to 1. This is so because log(x) will then be very small. 
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Accuracy Statistics 



This chapter contains accuracy statistics for explicitly and implicitly called 
mathematical subprograms. These statistics are presented in Figure 12. They are 
arranged in alphabetic order, according to the entry names. The following informa- 
tion is given in the two figures: 

Entry Name: This column gives you the entry name that is used to call the 
subprogram. 

Argument Range: This column gives the argument range used to obtain the 
accuracy figures. For each function, accuracy figures are give^n for one or more 
representative segments within the valid range. In each case, the figures given are 
the most meaningful to the function and range under consideration. 

The maximum relative error and standard deviation of the relative error are 
generally useful and revealing statistics; however, they are useless for the range of 
a function where its value becomes 0. This is because the slightest error in the 
argument can cause an unpredictable fluctuation in the magnitude of the answer. 
When a small argument error would have this effect, the maximum absolute error 
and standard deviation of the absolute error are given for the range. 

Sample: This column indicates the type of sample used for the accuracy figures. 
The type of sample depends on the function and range under consideration. The 
statistics may be based either upon an exponentially distributed (E) argument 
sample or a uniformally distributed (U) argument sample. 

Accuracy Figures: This column gives accuracy figures for one or more represen- 
tative segments within the valid argument range. The accuracy figures supplied are 
based on the assumption that the arguments are perfect, that is, without error and, 
therefore, have no error propagation effect upon the answers. The only errors in 
the answer are those introduced by the subprograms. The chapter ''Algorithms" 
contains a description of some of the symbols used in the chapter; the following 
additional symbols are used in the presentation of accuracy figures: 



^J^' 



Vj>^' 



M (c) = Max 



i(x) - g{x) 



f(x) 



cr(e) 



\ N^i 



i(xi) -g(x,) 



HxO 



M(E) = Max I i{x) - g(x) 



(7(E) 



\ N^i 



iM - g(x,) 



The maximum 
relative error 
produced 
during testing. 

The standard 
deviation (root- 
mean-square ) of 
the relative error. 

The maximum 
absolute error 
produced 
during testing. 

• The standard 
deviation (root- 
mean-square) of 
the absolute error. 



In case of complex functions, the absolute value signs employed in the above 
definitions are to mean the complex absolute values. In the formulas for standard 
deviation, N represents the total number of arguments in the sample; / is a 
subscript that varies from 1 to N. 
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Entry 
• Name 


Argument 
Range 


Sample 

E/U 




Accuracy Fig 


ures 




Re 

M(e) 


lative 

«r(e) 


Absc 

M(E) 


lute 

«r(E) 


ALGAMA 


< X < 0.5 


U 


1.16 X 10-« 


3.54 X 10-^ 






0.5 ^ X < 3.0 


u 






9.43 X 10-7 


3.42 X 10-7 


3.0 ^ X < 8.0 


u 


1.25 X 10-« 


3.04 X 10-^ 






8.0 ^ X < 16.0 


u 


1.18 X 10-" 


3.80 X 10-^ 






16.0 ^ X < 500.0 


u 


9.85 X 10-^ 


1.90 X 10-7 






ALOG 


0.5 ^ X ^ 1.5 


u 






6.85 X 10-8 


2.33 X 10-8 


X < 0.5, X > 1.5 


E 


8.32 X 10-^ 


1.19 X 10-7 






ALOG 10 


0.5 ^ X ^ 1.5 


U 






7.13 X 10-« 


2.26 X 10-8 


X < 0.5, X > 1.5 


E 


1.05 X lO-" 


2.17 X 10-' 






ARCOS 


-1^X^+1 


u 


8.85 X 10-^ 


3.19 X 10-7 






ARSIN 


- 1^X< + 1 


u 


9.34 X 10-^ 


2.06 X 10-7 






ATAN 


The full range 


Note 7 


1.01 X io-« 


4.68 X 10-7 






ATAN2 


The full range 


Note 7 


1.01 X io-« 


4.68 X 10-7 






CABS 


The full range 


Note 1 


9.15 X 10-^ 


2.00 X 10-7 






CCOS 


|Xi|^10, jx^i^i 


U 


2.50 X 10-« 
See Note 2 


7.66 X 10-7 






CDABS 


The full range 


Note 1 


2.03 X 10-'" 


4.83 X 10-17 






CDCOS 


|X,| ^ 10, |X.j ^ 1 


U 


3.98 X 10-1 = 
See Note 3 


2.50 X 10-i« 






CDEXP 


|X,| ^ 1, 1X.| ^ 7r/2 


U 


3.76 X 10-1" 


1.10 X io-i« 






|Xi| ^ 20, |X.| ^ 20 


U 


2.74 X 10-15 


9.64 X 10-i« 






CDLOG 


The full range 
except (1 + Oi) 


Notel 


2.72 X 10-i« 


5.38 X 10-17 






CDSIN 


jX,| < 10, IX2I ^ 1 


U 


2.35 X 10-1= 
See Note 4 


2.25 X 10-i« 






CDSQRT 


The full range 


Notel 


1.76 X 10-1 « 


4.06 X 10-17 






CEXP 


jXtl < 170, iX.l ^ ,r/2 


U 


9.93 X 10-^ 


2.67 X 10-7 






|X,| ^ 170, 

7r/2 < IX2I ^ 20 


U 


1.07 X 10-" 


2.73 X 10-7 






CLOG 


The full range 
except (1 + Oi) 


Note 1 


7.15 X 10-^ 


1.36 X 10-7 






COS 


O^X^ir 


U 






1.19 X 10-7 


4.60 X 10-8 


-10<X<0, 
IT < X ^ 10 


U 






1.28 X 10-7 


4.55 X 10-8 


10 < |X| ^ 100 


U 






1.14 X 10-7 


4.60 X 10-8 


COSH 


-5^X^ + 5 


U 


1.27 X 10-« 


2.63 X 10-7 






COTAN 


|X| ^ ttM 


U 


1.07 X 10-« 


3.58 X 10-7 






7r/4 < |X| ^ ir/2 


U 


1.40 X 10-«(Note5) 


2.56 X 10-7 






ir/2 < |X| < 10 


u 


L30X 10-" (Note 5) 


3.11 X 10-7 






10 < 1X| ^ 100 


u 


1.49 X 10-« (Note 5) 


3.15 X 10-7 






Notes: (See end of figure.) 
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Entry 
Name 


Argument 
Range 


Sample 

E/U 


Accuracy Figures 


Relative 


Absolute 1 


M(€) 


*r(e) 


M(E) 


<r(E) 


CQABS 


Full range 


Note 9 


2.77 X 10'"» 


5.45 X 10-« 






CQCOS 


-10<x<10 
-l<y<l 


U 


6.87 X 10-'» 


2.44 X 10-- 






CQDVD# 


* 


Notes 


5.32 X lO"" 


1.42 X lO-* 






CQEXP 


-170 <x< 170 

TT IT 

- 2 <y< 2 


U 


3.82 X lO"** 


8.30 X 10-»* 






CQLOG 


Full range 


Note 9 


4.53 X lO-** 


9.72 X 10-" 






CQMPY# 


* 


Notes 


4.52 X lO-"" 


1.27 X 10-*" 






GQSIN 


-i0<x<10 
-i<y<i 


U 


7.26 X 10 " 


2.37 X 10-*' 






CQSQRT 


Full range 


Note 9 


3.37 X 10-"» 


7.27 X lO-** 






CSIN 


|X,|^10,|X2|^1 


U 


1.92 X 10-« 
See Note 6 


7.38 X 10-7 






CSQRT 


The full range 


Notel 


7.00 X 10-^ 


1.71 X 10-7 






DARCOS 


|X|^1 


U 


2.07 X 10-1 « 


7.05 X 10-" 






DARSIN 


|X|^1 


U 


2.04 X 10-i« 


5.15 X 10-" 






DATAN 


The full range 


Note 7 


2.18 X 10-i« 


7.04 X 10-" 






DATAN2 


The full range 


Note 7 


2.18 X 10-i« 


7.04 X 10-" 






DCOS 


O^X^TT 


U 






1.79 X 10-" 


6.53 X 10-" 


-10^X<0, 
T < X g 10 


u 






1.75 X 10-" 


5.93 X 10-" 


10 < X ^ 100 


u 






2.64 X 10-" 


1.01 X 10-" 


DCOSH 


|X|^5 


u 


3.63 X 10-i« 


9.05 X 10-" 






DCOTAN 


|X| ^ 7r/4 


u 


2.46 X 10-i«(Note5) 


8.79 X 10-" 






t/4 < |X| ^ w/2 


u 


2.78 X lO-^MNoteS) 


8.61 X 10-" 






W2 < |X| ^ 10 


u 


5.40 X 10-13 (Note 5) 


1.13 X 10-1* 






10 < |X| ^ 100 


u 


8.61 X 10-13 (Note 5) 


4.61 X 10-1* 






DERF 


|Xi ^ 1.0 


u 


1.89 X 10-i« 


2.60 X 10-" 






1.0 < |X| ^ 2.04 


u 


2.87 X 10-" 


9.84 X 10-" 






2.04 < |X|< 6.092 


u 


1.39 X 10-" 


8.02 X 10-" 






DERFC 


-6<X<0 


u 


2.08 X 10-" 


6.52 X 10-" 






ogx^i 


u 


1.40 X 10-i« 


2.59 X 10-" 






1<X^2.04 


u 


4.11 X 10-i« 


8.86 X 10-" 






2.04 < X < 4 


u 


3.26 X 10-" 


8.65 X 10-" 






4 ^ X < 13.3 


u 


3.51 X 10-" 


1.96 X 10" 






Notes. (See end of figure.) 



V^\ 
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Entry 
Name 


Argument 
Range 


Sample 

E/U 


Accuracy Figures 


Re 


lative 


Absolute 1 


M(«) 


«r(e) 


M(E) 


<r(E) 


DEXP 


|X|gl 


U 


2.04 X 10-" 


5.43 X 10-" 






1 < 1X| ^ 20 


u 


2.03 X 10-" 


4.87 X 10-" 






20 < 1X| < 170 


u 


1.97 X 10-" 


4.98 X 10-" 






DGAMMA 


0<X<1 


u 


2.14 X 10-" 


7.84 X 10-" 






1^X^2 


u 


2.52 X 10-" 


6.07 X 10-" 






2<X<4 


. u 


2.21 X 10-" 


8.49 X 10-" 






4^X<8 


u 


5.05 X 10-" 


1.90 X 10-" 






8 ^ X < 16 


u 


6.02 X 10-" 


1.78 X 10-" 






16 ^ X < 57 


u 


1.16 X 10-" 


4.11 X 10-" 






DLGAMA 


< X ^ 0.5 


u 


2.77 X 10-" 


9.75 X 10-" 






0.5 < X < 3 


u 






2.24 X 10-" 


7.77 X 10-" 


3^X<8 


u 


2.89 X 10-" 


8.80 X 10-" 






8 ^ X < 16 


u 


2.86 X 10-" 


8.92 X 10-" 






16 ^ X < 500 


u 


1.99 X 10-" 


3.93 X 10-" 






DLOG 


0.5 ^ X ^ 1.5 


u 






4.60 X 10-" 


2.09 X 10-" 


X < 0.5. X > 1.5 


E 


3.32 X 10-16 


5.52 X 10-" 






DLOGIO 


0.5 g X ^ 1.5 


u 






2.73 X 10-" 


1.07 X 10-" 


X < 0.5, X > 1.5 


E 


3.02 X 10-" 


6.65 X 10-" 






DSIN 


|XI < ir/2 


u 


3.60 X 10-" 


4.82 X 10-" 


7.74 X 10-" 


1.98 X 10-" 


ir/2 < |X| ^ 10 


u 






1.64 X 10-" 


6.49 X 10-" 


10 < |X| ^ 100 


u 






2.68 X 10-" 


1.03 X 10-" 


DSINH 


|X| ^ 0.88137 


u 


2.06 X 10-" 


3.74 X 10-" 






0.88137 < |X| ^ 5 


u 


3.80 X 10-" 


9.21 X 10-" 






DSQRT 


The full range 


E 


1.06 X 10-" 


2.16 X 10-" 






DTAN 


|X! ^ ir/4 


U 


3.41 X 10-" 


6.27 X 10-" 






ir/4 < |X| ^ 7r/2 


u 


1.43 X 10-" (Note 5) 


2.95 X 10-" 






t/2 < |X| ^ 10 


u 


2.78 X 10-iMNote5) 


7.23 X 10-" 






10 < |X| ^ 100 


u 


3.79 X 10-" (Note 5) 


9.50 X 10-" 






DTANH 


|X| ^ 0.54931 


u 


1.91 X 10-" 


3.86 X 10-" 






0.54931 < |X| ^ 5 


u 


1.54 X 10-" 


1.87 X 10-" 






ERF 


|X| ^ 1.0 


u 


8.16 X 10-^ 


1.10 X 10-7 






1.0 < |X| g 2.04 


u 


1.13 X 10-^ 


3.70 X 10-8 






2.04 < 1X| ^ 3.9192 


u 


5.95 X 10-8 


3.41 X 10-8 






Notes: (See end of figure.) 
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Entry 
Name 


Argument 
Range 


Sample 

E/U 


Accuracy Figures | 


Relative 


Absolute 1 


M(0 


<r{e) 


M(E) 


«r(E) 


ERFC 


-3.8 < X < 


U 


9.10 X 10-^ 


2.96 X 10-^ 






ogxgi.o 


u 


7.42 X 10-^ 


1.27 X 10-^ 






1.0 < X g 2.04 


u 


1.54 X 10-" 


3.78 X 10-7 






2.04 < X g 4.0 


u 


2.28 X 10-« 


3.70 X 10-7 






4.0 < X ^ 13.3 


u 


1.55 X 10-5 


8.57 X 10-« 






EXP 


ixi^i 


u 


4.65 X 10-^ 


1.28 X 10-7 






1< |X! ^ 170 


" 


4.42 X 10' 


1.15 X 10-7 






FCQXI# 


2^J^160, 
10-'"'<jx + iy;<10"'' 




3.7 X 10-^ X J 


10-=" X (J - 1) 






FQXPI# 


2^.1^160, 
10-^--'<x<10^^' 




2.5 X lO-^'x (J- 1) 


6.1 X lO-''* X (J - 1) 






FQXPQ# 


0.99 < A < 1.01 
-75 logA 10 < 8 
< 75 log. 10 


u 


5.68 X 10-" 


5.16 X 10-=" 






{A**B) 


0.5 < A ^ 0.99, 
or 1.01 ^ A <2 
-751ogA 10 < B 
< 75 logA 10 


u 


5.65 X 10-'=-' 


2.16 X 10-=" 






< A ^ 0.5, 
or 2 ^ A < lO^'- 


E 


1.60 X 10-™ 


3.87 X 10-=" 






-75 logA 10 < B 
< 75 logA 10 


U 


1.60 X lO-*" 


3.87 X lO-"" 






FQXP2# 


-260 < X < 252 


U 


1.52 X lO-*"" 


3.78 X 10-»* 






GAMMA 


< X < 1.0 


U 


9.86 X 10-" 


3.66 X 10-7 






1.0^X^2.0 


u 


1.13 X 10-" 


3.22 X 10-« 






2.0 < X ^ 4.0 


u 


9.47 X 10-' 


3.79 X 10-7 






4.0 < X < 8.0 


u 


2.26 X 10-« 


8.32 X 10-7 






8.0 g X ^ 16.0 


u 


2.20 X 10-5 


7.61 X 10-« 






16.0 < X g 57.0 


u 


4.62 X 10--'' 


1.51 X 10-5 






QARCOS 


-1 ^ xg 1 


u 


3.18 X 10-™ 


9.81 X 10-** 






QARSIN 


-1 ^ X ^ 1 


u 


3.14 X 10-=" 


7.89 X 10-"* 






QATAN 


-10" <x< 10'^' 


Note 10 


2.92 X lO-** 


7.32 X 10-** 






QATAN2 


Full range 


Note 9 


3.53 X 10-*" 


7.83 X 10-"* 






QCOS 


O^X^ TT 


U 


4.41 X lO-^*" 


6.58 X 10-=" 


3.23 X 10-'" 


1.48 X 10-^ 


- 10 < X < 0, or 
7rgx<10 


U 






3.43 X 10-** 


1.57 X lO-** 


-200<x^ -10, or 
10 ^ X < 200 


U 






3.48 X 10-** 


1.57 X 10-* 


QCOSH 


-10<x<10 


u 


5.83 X iO-'« 


1.57 X 10-=" 






Notes: (See end of figure.) 



V^"'-:,, 
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Entry 
Name 


Argument 
Range 


Sample 

E/U 




Accuracy F 


igures 


Relative | 


Absolute 


M(0 


«r(e) 


M(E) 


«r(E) 


QCOTAN 


--4-<x<-4- 


U 


3.02 X 10-»» 


9.09 X 10-'* 






- 2 <"=- 4 '°^ 
4 ="< 2 


u 


3.98 X lO-** 


1.09 X 10-" 






-10 <x< --y.or-l-^x < 10 


u 


4.55 X 10- 


1.13 X 10-" 






-200 < x^ -10,or 10^x<200 


u 


3.98 X 10-" 


1.11 X 10-" 






QERF 


Ixl < 1 


u 


3.0 X 10-" 


5.3 X 10-'* 






1 ^ |x| < 2.84375 


u 


9.2 X 10-»* 


2.3 X 10-'* 






2.84375 ^ Ix] < 5 


u 


1.9 X 10-'* 


1.3 X 10-** 






QERFC 


-5<x < 


u 


3.1 X 10-" 


1.2 X 10-" 






^x< 1 


u 


3.3 X 10-" 


5.8 X 10-** 






1 < x < 2.84375 


u 


7.7 X 10-" 


2.8 X 10-" 






2.84375 ^ X < 5 


u 


4.88 X 10-" 


1.83 X 10-" 






QEXP 


-l<x < 1 


u 


1.51 X 10-" 


4.27 X 10-»* 






-10<x<10 


u 


1.53 X 10-" 


3.96 X 10-»* 






-180< X < 174 


u 


1.54 X 10-" 


3.82 X 10-" 






QLOG 


0.99 < X < 1.01 


u 


4.27 X 10-" 


1.51 X 10-" 


1.92 X 10-" 


8.36 X 10-" 


0.5 < X < 2 


u 


4.06 X 10-" 


8.24 X 10-»* 


3.17 X 10-" 


1.63 X 10-" 


10" < X < 10" 


E 


4.45 X 10" 


8.77 X 10-»* 






QLOGIO 


10'" < X < 10" 


E 


3.59 X 10-" 


1.16 X 10-" 






QSIN 


- 2 <"< 2 


U 


2.48 X 10" 


3.12 X 10-" 


2.95 X 10-" 


1.17 X 10-" 


-10<x^ --|-.or-|-^x<10 


u 






3.48 X 10-" 


1.60 X 10-" 


-200 < X ^ -10. or 10 ^ X < 200 


u 






3.50 X 10" 


1.56 X 10-" 


OSINH 


-1 <x< 1 


u 


2.91 X 10" 


6.86 X 10-" 






-10<x^ -l.orl gx<10 


u 


6.71 X 10-" 


1.37 X 10-" 






QSQRT 


10-"" < X < 10" 


E 


1.49 X 10" 


2.95 X 10-" 






10-'- < X < 10»» 


E 


1.39 X 10-" 


2.76 X 10" 






QTAN 


T . .It 

- 4 <"< 4 


u 


3.75 X 10-" 


9.16 X 10-" 






ir ^ ^ IT 
- 2 < * = 4 ' Of 

4 =''< 2 


u 


2.77 X 10-" 


8.78 X 10:" 






-10<x^ -~,or-f-^x<10 


u 


4.52 X 10" 


9.16 X 10" 






-200 < x ^ -10, or 10 ^ X < 200 


u 


4.47 X 10-" 


9.12 X 10" 






QTANH 


-0.54931 < x < 0.54931 


u 


2.41 X 10" 


5.12 X 10" 






-5 < X ^ -0.54931, or 
0.54931 ^ X < 5 


u 


2.09 X 10" 


2.46 X 10" 


1.04 X 10-* 


1.68 X 10-" 


Notes. (See end of figure.) 
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Entry 
Name 


Argument 
Range 


Sample 

E/U 


Accuracy Figures | 


Relative 


Absolute 1 


M(e) 


«r(«) 


M(E) 


(r(E) 


SIN 


|X| ^ t/2 


U 


1.32 X 10-» 


1.82 X 10-7 


1.18 X 10-7 


4.55 X 10-« 


ir/2 < |X| < 10 


u 






1.15 X 10-7 


4.64 X lO-" 


10 < 1X| ^ 100 


u 






1.28 X 10-7 


4.52 X lO"" 


SINH 


-5^X^+5 


u 


1.26 X 10-« 


2.17 X 10-7 






SQRT 


The full range 


E 


4.45 X 10-' 


8.43 X 10-8 






TAN 


|X| ^ ir/4 


U 


1.71 X 10-« 


2.64 X 10-7 






ir/4 < |XI ^ n-/2 


U 


1.05 X 10-«(Note5) 


3.59 X 10-7 






ir/2 < |X| ^ 10 


U 


6.49 X 10-«(Note5) 


3.38 X 10-7 






10 < jXj ^ 100 


U 


1.57 X 10-«(Note5) 


3.07 X 10-7 






TANH 


|X| ^ 0.7 


U 


8.48 X 10-7 


1.48 X 10-7 






0.7 < |X| ^ 5 


u 


2.44 X 10-7 


4.23 X 10-« 






Notes: 

' The distribution of sample arguments upon which these statistics are based is exponential radially and is imiform around the 

origin. 
' The maximum relative error cited for the ccos function is based upon a set of 2000 random arguments within die range. In 

the immediate proximity of the points! n + -r- 1 r + 0» (where ti = 0, ± 1, ± 2, . . . ,) the relative error can be quite 

high, although the absolute error is small. 
^ The maximum relative error cited for the cdcos function is based upon a set of 1500 random arguments widiin the range. 

In the immediately proximity of the points l„ + -i_|^ + Ot (where n = 0, ± 1, ± 2, . . . ,) the relative error can be quite 

high, although the absolute error is small. 

* The maximum relative error cited for the cdsin function is based upon a set of 1500 random arguments within the range. 
In the immediate proximity of the points nir + Ot (where n = ± 1, ± 2, ...,) the relative error can be quite high, although 
the absolute error is small. 

" The figures cited as the maximum relative errors are those enwuntered in a sample of 2500 random arguments within tiie 
respective ranges. See the appropriate section in the chapter "Algorithms" for a description of the behavior of errors when 
the argument is near a singularity or a zero of the function. 

* The maximum relative error cited for the csin function is based upon a set of 2000 random arguments witfiin the range. In 
the immediate proximity of the points wr + Ot (where n = ± 1, ± 2, . . . ,) the relative error can be quite high, although 
the absolute error is small. 

TT IT 

'' The sample arguments were tangents of numbers uniformly distributed between . and + „ . 

" X + iy = 8 e'^, where 8 is exponentially distributed in (0, lO**), and 6 is uniformly distributed in (— w, ir). 

* X + iy = 8 e'*, where 8 is exponentially distributed in (0, lO'^'), and 9 is uniformly distributed in (— w, ir). 
'0 Tangents oflinearly scaled random angles between — J and J • 
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Appendix A: Assembler language Information 



The mathematical and service subprograms in the vs Fortran library can be used 
by^the assembler language programmer. Successful use depends on three things: 
(1) making the library available to the linkage editor; (2) setting up proper calling 
sequences, based on either a call macro instruction or a branch; and (3) supply cor- 
rect parameters. 

UBRARY AVAILABIUTY 

The assembler language programmer must arrange for the desired subprograms 
(modules) to be taken from the vs Fortran library and brought into main storage, 
usually as a part of the programmer's load module. This can be done by employing 
the techniques described in the OS/VS Linkage Editor and Loader, and Guide to the 
DOS/VSE Assembler, publications. 

For example, the vs Fortran library could be made part of the automatic call 
library by using these job control statements: 

//jobname JOB desired operands 

//stepname EXEC ASMFCLG,PARM.LKED = 'XREF,LIST,MAP' 

//ASM.SYSIN DD* 

(assembler language program source deck) 

/* 

//LKED.SYSLIB DD DSNAME=data set name,DISP=SHR 

/♦ 

Subprograms requested in the source program would then be available to the 
linkage editor for inclusion in the load module. 

CAliING SEQUENCES 

Two general methods of calling are possible: (1) coding an appropriate macro 
instruction (for OS/VS and VM/370 CMS, see OS/VS Supervisor Services and macro 
Instructions, and for DOS/VSE see DOS/VSE Data Management Concepts, and DOS/ 
VSE Macro User's Guide) ^ such as CALL; or (2) coding assembler language branch 
instructions. 

In all cases, a save area must be provided that: 

• is aligned on a fullword boundary 

• is at least as large as the size specified in Figures 13,14, and 15, (but preferably 
the standard 18 words to ensure future compatibility) 

• All extended precision mathematical subprograms (both explicit and implicit) 
use all 16 registers, and require their callers to supply a full 18 word save area. 

• has its address in general register 1 3 at the time of the CALL macro instruction 
or branch 

Notes: 

1. For performance reasons, vs Fortran subprograms use certain floating-point 
registers (see Figure 14), but do not save and restore original register con- 
tents. If you wish floating-point information retained, you must save it before 
calling the subprogram and restore it on return. 

2. From the DOS/VSE control program register 1 is not used but the execution 
parameters are passed as bit settings in the communications area. 
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If the called subprogram uses vs Fortran input/output, error processing, or inter- 
ruption routines (see Figure 17), the calling program must initialize the execution 
environment by executing the following two instructions before the branch is 
made: 

L 15,=V(VSC0M#) 
BAL 14,64(15) 

These instructions cause a branch into the VSCOM# subprogram, which initial- 
izes return coding and prepares routines to handle interruptions. If this initializa- 
tion is omitted, an interruption or error may cause abnormal termination. (After 
initialization, VSCOM# returns to the instruction following the BAL.) 

Note: 

An initialization entry to VSCOM# is not required if the main program is written 
in FORTRAN, and the assembler language routine is an intermediate. 



'\^ 



Q 
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Entry Name(s) • 


Save Area 
(FuUwords) 


Registers Used^ 


Result 


Intermediate 


AINT 


9 





2,4,6 


ALGAMA, GAMMA 


9 





2,4,6 


ALOG, ALOGIO 


7 





2,4,6 


AMAXO, AMINO 


6 







MAXO, MINO 


9 


0* 




AMAXl, AMINl 


6 







MAXl, MINI 


9 


0* 




AMOD, DMOD 


9 





2,4,6 


ARCOS, ARSIN 


10 





2,4 


ATAN 


5 





2,4,6 


ATAN, ATAN2 


7 





2,4,6 


CABS 


7 


0,2 


4,6 


CCOS, CSIN 


9 


0,2 


4 


CDABS 


7 


0,2 


4,6 


CDCOS, CDSIN 


9 


0,2 


4 


CDEXP 


8 


0,2 


4,6 


CDLOG 


8 


0,2 


4,6 


CDSQRT 


9 


0,2 


4,6 


CEXP 


8 


0,2 


4,6 


CLOG 


8 


0,2 


4,6 


COS, SIN 


7 





2,4 


COSH, SINH 


8 





2,4 


COTAN, TAN 


7 





2,4 


CSQRT 


9 


0,2 


4,6 


DARCOS, DARSIN 


13 





2,4 


DATAN 


5 





2,4,6 


DATAN, DATAN2 


7 





2,4,6 


DCOS, DSIN 


7 





2,4 


DCOSH, DSINH 


8 





2,4 


DCOTAN, DTAN 


7 





2,4,6 


DERF, DERFC 


11 





2,4,6 


DEXP 


7 





2 


DGAMMA, DLGAMA 


11 





2,4,6 


DLOG, DLOGIO 


9 





2,4,6 


DMAXl, DMINl 


9 







DSQRT 


7 





2,4 


DTANH 


5 





2,4,6 


EXP 


11 







ERF, ERFC 


11 





2,4,6 


IDINT, INT, IFIX 


9 


0* 




MOD 


9 


0* 




SQRT 


7 





2 


TANK 


5 





2,4,6 


^Floating-point; asterisk indicates general. 



Save Area 
Entry Name ( s ) ( Fullwords ) 


Registers Used* | 


Result 


Intermediate 


CDMPY#, CDDVD# 5 
CDVD#, CMPY# 5 
FIXPI# 18 
FRXPI# 18 
FDXPI# 18 
FRXPR# 18 
FDXPD# 18 
FCDXI# 18 
FCXPI# 18 


0,2 

0,2 

0* 









0,2 

0,2 


4,6 
' 4,6 


Tloating-point; asterisk indicates general. 



Figure 14. Assembler Information for the Implicitly Called 
Mathematical Subprograms 



Entry Name(s) 


Save Area (Fullwords) 


CCMPR# 
CMOVE# 
CNCAT# 
LGE, LGT, LLE, LLT 


18 
18 
18 
18 



Figure 15. Assembler Information for the Implicitly Called 
Character Subprograms. 



Entry Name(s) 


Save Area ( Fullwords ) 


DUMP, PDUMP 
DVCHK 
EXIT 
OVERFL 


18 

10 

5 

10 



Figure 16. Assembler Information for the 
Service Subprograms 



Figure 13. Assembler Information for the Explicitly Called 
Mathematical Subprograms 
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When a branch instruction rather than a call macro instruction is used to invoke a 4^^ 
subprogram, several additional conventions must be observed: ^V 

• An argument (parameter) address list must be assembled on a fuUword bound- 
ary. It consists of one 4-byte address constant for each argument, with the last 
address constant containing a 1 in its high order bit. 

• The address of the first item in this argument address list must be in general 
register 1. 

• From the DOS/VSE control program register 1 is not used but the execution 
parameters are passed as bit settings in the communications area. 

• The address of the entry point of the called subprogram must be in general 
register 15. 

• The address of the point of return to the calling program must be in general 
register 14. 

The total requirements for an assembler language calling sequence are illustrated 
in Figure 14. 






) 
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L 

BAL 

* * 


15, = V(IBCOM#) 

14,64(15) 

• • 


These two statements are necessary only if the called subprogram uses 
FORTRAN input/output, error, or interrupt routines (see Appendix B), and if 
the main program is not a FORTRAN routine. 




LA 


13,area 


General register 13 contains the address of the save area. 




LA 


1, arglist 


General register 1 contains the address of the argument list. 




L 


15,entry 


General register 15 contains the address of the subprogram. 




BALR 


14,15 


General register 14 contains the address of the point of return to the calling 
program. 




NOP 

* • 


X'id'/ 

• * 


This statement is optional. The id represents an identification number. 
This number is supplied by the programmer and may be any hexadecimal 
integer less than 2'" - 1. 


entry 


DC 


V ( entry name ) 




entry 


o:. 

DC A (entry name) 

* • * • 


Note: In this case, the entry name must be defined by an EXTRN instruc- 
tion to obtain proper linkage. 


area 


DS 

« • 


ixF 

• • 


This statement defmes the save area needed by the subprogram. The xx repre- 
sents the minimum size of the save area required; however, the programmer is 
advised to use a save area of 18 fuUwords for all subprograms. (The minimum 
save area requirements are given in Figures 13 and 14 for the mathematical 
subprograms and in Figure 16 for the service subprograms.) 


For one 


arg^ment 








CNOP 


DSOF 


Aligns the argument list at a fullword boundary. 


arglist 


DC 


X'80' 


Places a 1 in the high order bit of the only argument. 




DC 


AL3 (arg) 


Contains the address of the argument. 


For more than one argument 




arglist 


DC 


A(arg.) 


Contains the address of the first argument. 




DC 

• 
• 


A (arg,) 


Contains the address of the second argument. 




• 
DC 


X'80' 


Places a 1 in the high order bit of tlie last argument. 




DC 


AL3(arg„) 


Contains the address of the last argument. 



Figure 17. General Assembler Language Calling Sequence 



o 
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Supplying Correct Parameters 

Arguments must be of the proper type, length, quantity, and in certain cases, with- 
in a specified range, for the subprogram called. 

For mathematical and character subprograms, this information can be found in 
Figures 2 through 6. INTEGER *4 denotes a signed binary number four bytes long. 
REAL *4 and REAL *8 are normalized floating point numbers, 4 and 8 bytes long, 
respectively, complex •S and complex * 16 are complex numbers, 8 and 16 bytes 
long, respectively, whose first half contains the real part, and whose second half 
contains the imaginary part. Each part is a normalized floating-point number. 
Four-byte argument types must be aligned on fuUword boundaries, and 8-byte and 
16-byte types must be aligned on doubleword boundaries. 

Argument information for nonmathematical subprograms can be found in "Ser- 
vice Subprograms." 

Error messages resulting from incorrect arguments are explained in "Appendix C. 
Library Interruption Procedures, Error Procedures, and Messages.*' 



Results 

Each mathematical subprogram returns a single answer of a type listed in Figures 2 
through 6 (see "Function Value Type"). The INTEGER answers are returned in 
general register 0, REAL answers are returned in floating-point register 0, and COM- 
PLEX answers are returned in floating-point register and 2. Result registers are 
listed by subprogram entry name in Figure 12. 

For extended precision mathematical subprograms, results are always returned in 
the floating-point registers: and 2 for real* 16 results, and 0, 2, 4, and 6 for COM- 
PLEX *32 results. 

The location and form of the service subroutine results can be determined from 
the discussion in "Service Subprograms." 



Example 

To find the square root of the value in AMNT, the library square root subprogram 
(entry name SQRT) could be invoked, using the following statements (for 
assembler language MAIN programs only): 

L 15,=V(VSCOM#) 

BAL 14,64(15) 



LA 


13,SAVE 


CALL 


SQRT, (AMNT), VL 


STE 


0,ANSWER 



SAVE DS 18F 



AMNT DC E'144' 

ANSWER DC E'O' 






v^ 



i 
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(The VL operand in CALL indicates that the macro expansion should flag the end 
of the parameter list.) 

Employing only assembler language instructions, the sequence would be: 



L 
BAL 



15,=V(VSC0M#) 
14,64(15) 



LA 

LA 

L 

BALR 

STE 



13,SAVE 

1,ARG 

15,ENTRY 

14,15 

0,ANSWER 



ENTRY 
ANSWER 



DC 
DC 



V(SQRT) 
E'O' 



SAVE 



DS 



18F 



^^ 



ARG 



DS 
DC 



OF, 

X'80',AL3(AMNT) 



AMNT 



DC 



E'144' 






Note that, in both cases, a branch to VSCOM# is provided, a save area is set up, 
and AMNT meets argument specifications by being a four-byte non-negative nor- 
malized floating-point number, aligned on a fullword boundary. 

In both cases, the answer is returned in floating-point register as a four-byte 
floating-point number. 

SPACE CONSIDERATIONS 

Many of the mathematical subprograms require other mathematical subprograms 
for their calculations. In addition, most of the subprograms use the input/output, 
error processing, and interruption library subroutines. (This interdependence is 
outlined in "Appendix B. Storage Estimates."). Thus, although the programmer 
may request just one vs FORTRAN subprogram, the requirements of that 
subprogram may make the resultant load module quite large. The SQRT routine, 
for example, takes only 344 bytes of storage itself, but requires other subroutines 
that increase the load module size by approximately 20,000 bytes. 
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Appendix B: Storage Estimates (Q) 



This Appendix contains decimal storage estimates (in bytes) for the library 
subprograms. The estimate given does not include any additional mathematical 
subprograms for vs Fortran routines that the subprograms may use during 
execution. The entry-names of any additional mathematical library subprograms 
used are given in Figure 18. Figures 18, 19, and 20 also indicate which mathematical 
and service subprograms require VS FORTRAN routines for input/output, interruption, 
and error procedures. 

The programmer must add the estimates for all subprograms and routines needed 
to determine the amount of storage required. If the programmer has not made 
allowances for the storage required by any of these additional routines (see Figure 
21), the amount of available storage may be exceeded and execution cannot begin, 
or may terminate abnormally. 









I/O, Error 






Additional Mathematical 


& Interrupt 


Entry Name (s) 


Decimal Estimates in Bytes 


Subprograms Used 


Routines 


AINT 


80 




No 


ALGAMA, GAMMA 


848 


ALOG, EXP 


Yes 


ALOG, ALOGIO 


464 




Yes 


AMAXO, AMINO, MAXO, MINO 


224 




No 


AMAXl, AMINl, MAXl, MINI 


224 




No 


AMOD, DMOD 


120 




No 


ARCOS, ARSIN 


496 


SQRT 


Yes 


ATAN 


200 




No 


ATAN, ATAN2 


488 




Yes 


CABS 


192 


SQRT 


Yes 


CCOS, CSIN 


760 


EXP. SIN/COS 


Yes 


CDABS 


200 


DSQRT 


Yes 


CDCOS, CDSIN 


832 


DEXP, DSIN/DCOS 


Yes 


CDDVD#, CDMPY# 


240 




No 


CDEXP 


624 


DEXP, DSIN/DCOS 


Yes 


CDLOG 


488 


DLOG, ATAN2 


Yes 


CDSQRT 


328 


DSQRT 


Yes 


CDVD#, CMPY# 


216 




No 


CEXP 


592 


EXP, SIN/COS 


Yes 


CLOG 


464 


ALOG, ATAN2 


Yes 


COS, SIN 


504 




Yes 


COSH, SINH 


504 


EXP 


Yes 


COTAN, TAN 


648 




Yes 


QCABS 


344 


QSQRT 


No* 


CQCOS, CQSIN 


1,100 


QEXP, QSIN, QCOS 


Yes 


CQDVD#, CQMPY# 


576 




No 


CQEXP 


624 


QEXP, QSIN, QCOS 


Yes 


CQLOG 


584 


QLOG, QATAN2 


Yes 


CQSQRT 


504 


QSQRT 


No* 


CSQRT 


312 


SQRT 


Yes 


CXMPR# (see Figure 20.) 








DARCOS, DARSIN 


648 


DSQRT 


Yes 


DATAN 


312 




No 


DATAN, DATAN2 


648 




Yes 


DCOS, DSIN 


696 




Yes 


DCOSH, DSINH 


592 


DEXP 


Yes 


DCOTAN, DTAN 


760 




Yes 


DERF, DERFC 


808 


DEXP 


Yes 


DEXP 


704 




Yes 


DGAMMA. DLGAMMA 


1056 


DLOG, DEXP 


Yes 


DLOG, DLOGIO 


538 




Yes 


* (See notes at end of figure.) 



y^y^j 



Figure 18. Mathematical Subprogram Storage Estimates (Part 1 of 2) 



86 VS FORTRAN Library Reference 



Page of SC26-3989 as updated 03 Juno 1981 by TNL SN26-0852 



jr*K 









I/O, Error, 






Additional Mathematical 


& Interrupt 


Entry Name (s) 


Decimal Estimates in Bytes 


Subprograms Used 


Routines 


DMAX1,DMIN1 


120 




No 


DSQRT 


352 




Yes 


DTANH 


304 


DEXP 


Yes 


EXP 


424 




Yes 


ERF, ERFC 


520 


EXP 


Yes 


FCDXPI# 


560 


CDMPY#/CDDVD# 


Yes 


FCXPI# 


536 


CDVD#/CMPY# 


Yes 


FCQXI# 


608 


CQMPY#, CQDVD# 


Yes 


FDXPD# 


464 


DEXP, DLOG 


Yes 


FDXPI# 


368 




Yes 


FQXPI# 


384 




Yes 


FQXPQ#, FQXP2#t 


2.880 




Yes 


FRXPR# 


432 


EXP, ALOG 


Yes 


FIXPI# 


368 




Yes 


FRXPI# 


360 




Yes 


IDINT, INT 


136 




No 


MOD 


56 




No 


QARCOS, QARSIN 


1,104 


QSQRT 


Yes 


QATAN, QATAN2 


1,160 




Yes 


QCOS, QSIN 


976 




Yes 


QCOSH, QSINH 


896 


QEXP 


Yes 


QCOTAN, QTAN 


1,112 




Yes 


QERF, QERFC 


1,200 


QEXPf 


Yes 


QEXP,QLOG,QLOG10t 


2,880 




Yes 


QSQRT 


520 




Yes 


QTANH 


664 


QEXP 


No* 


SQRT 


344 




Yes 


TANH 


256 


EXP 


Yes 


* Note that although these mathematical subprograms do not themselves require the input/output, error or interruption routines. 


they use other mathematical subprograms which do. 






t All share the same subroutine. 






t When the argument falls between 2.84375 and 13.306, the module IFYQEI 


l¥2 (size 1,300 bytes) is also used 


. IFYQERF2 in 


turn uses routine FQXPQ#. 







Figure 18. Mathematical Subprogram Storage Estimates (Part 2 of 2) 





Decimal 


I/O, Error 




Estimates 


& Interrupt 


Entry Name 


(in bytes) 


Routines 


DUMP/PDUMP 


870 


Yes 


DVCHK 


60 


Yes 


EXIT 


32 


Yes 


OVERFL 


72 


Yes 



Figure 19. Service Subprogram Storage Estimates 
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Entry Name(s) ^ 


Decimal 
Estimates 
(in bytes) 


I/O, Error, 
and Interrupt 
Routines 


CCMPR#, CXMPR^ ^ 


604 


Yes^ 


CMOVBS^ 


456 


Yes 


CNCAT# 


480 


Yes 


LGE, LGT, LLE, LLT 


1728 


Yes 


Notes to Figure: 

1. No additional character subprograms are used. 

2. The entry point CXMPR# is used for complex operands. 



o 



Figure 20. Character Subprogram Storage Estimates 



Routine Name 


Decimal Estimates 




(in bytes) 


IFYUATBL* 


Installation dependant 


IFYUOPT 


Installation dependent 


IFYDIOCS 


360 


IFYIBCOM 


2452 


IFYLDFIO 


4372 


IFYNAMEL 


3356 


IFYOFSYS* 


672 


IFYVASU 


2526 


1FYVASYN3 


1696 


IFYVCLOS 


596 


IFYVCOMD 


8799 


IFYVCOMH 


4640 


IFYVC0M2 


736 


IFYVCONI 


740 


IFYVCOND 


1316 


IFYVCVTH 


4216 


IFYVDI0S2 


2500 


IFYVERRE 


430 


IFYVERRM 


1124 


IFYVFNTH 


1414 


IFYVIIOS 


632 


IFYVINQR 


1792 


IFYVMOPT 


735 


IFYVOPEN 


1693 


IFYVSCOM 


2252 


IFYVSERH 


203 


IFYVSIOSi 


5724 


IFYVSTAE 


1671 


IFYVTEN 


680 


IFYVTRCH 


746 


1FYVVI0S> 


2304 


Notes TO FIGURE: 




1 This module also requires dynamic 


storage. For each I/O unit used, the amount (in bytes) is 184 


+ buffer size (s). 




2 This module also acquires dynamic 


storage. For each I/O unit used, the amount (in bytes) is 224 


+ buffer size (s). 




3 This module also acquires dynamic storage. For each I/O unit used, the amount (in bytes) is 256 | 


+ buffer size (s). 




♦ The number of bytes in table IFYUATBL may be computed by the formula 16n + 8, where n is 


the number of data set reference numbers requested at installation time. 


5 This routine is for DOS/VSE only. 





\^) 



Figure 21. Library Execution-Time Routines Storage Estimates 
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APPENDIX C. LIBRARY INTERRUPTION PROCEDURES, ERROR PROCEDURES > AND MESSAGES 



This appendix contains brief explanations of the program 
interruption and error procedures used by the FORTRAN library. 
The messages generated by the VS FORTRAN library are also given. 
A full description of program interrupts is given in the 
publication IBM Svstem/370 Principles of Operation . For detailed 
information about error processing and message formats* see VS 
FORTRAN Application Programmingj Guide . 



LIBRARY INTERRUPTION PROCEDURES 






The VS FORTRAN library processes those interrupts that are 
described below; all others are handled directly by the system 
Supervi sor' 

1. Uhen an interrupt occurs* indicators srQ set to record 
exponent overflow* underflow* fixed-point* floating-point or 
decimal divide exceptions. These indicators can be 
interrogated dynamically by the subprograms described in the 
chapter* "Service Subroutine Subprograms." 

2. A message is printed on the object program error unit when 
each interrupt occurs. The old program status word (PSUI) 
printed in the message indicates the cause of each 
interrupt. 

3. Result registers Bre changed when exponent overflow or 
exponent underflow (codes C and D) occur. Result registers 
are also set when a floating-point instruction is referenced 
by an assembler language execute (EXEC) instruction. 

4. Condition codes set by floating-point addition or 
substraction instructions are altered for exponent underflow 
(code D). 

5. After the foregoing services are performed* execution of the 
program continues from the instruction following the one 
that caused the interrupt. 



LIBRARY ERROR PROCEDURES 



During execution* the mathematical subprograms assume that the 
argument (s) is the correct type. However* some checking is done 
for erroneous arguments (for example* the wrong type* invalid 
characters* the wrong length* etc.); therefore* a computation 
performed with an erroneous argument has an unpredictable 
result. However* the nature of some mathematical functions 
requires that the input be within a certain range. For example* 
the square root of a negative number is not permitted. If the 
argument is not within the valid range given in Figures 2 
through 6* an error messgae is written on the object program 
error unit data set defined by the installation during system 
generation. The execution of this load module or phase is 
terminated and control is returned to the operating system. 
However* execution can continue* with extended error handling 
for this program. This facility provides for standard corrective 
action by the user. For a full description of extended error 
handling* see VS FORTRAN Application Programming? Guide . 
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LIBRARY MESSAGES 



The VS FORTRAN library generates three types of messages^ 

• Program interrupt messages 

• Execution error messages 

• Operator messages 

All library messages are numbered. Program interrupt messages 
are written Mhen an exception to a system restriction occurs^ 
such as Mhen an invalid storage address or an authorized access 
to protected storage is requested. Execution error messages are 
written when a FORTRAN library function or subroutine is misused 
or an I/O error occurs. Operator messages Bre written when a 
STOP n or PAUSE statement is executed. 

Refer to "Section 1. Guide" of VS FORTRAN Diagnosis when a 
problem recurs after you have performed the specified programmer 
response for the message received. 

PROGRAH INTERRUPT MESSAGES 

Program interrupt messages are written with the old Program 
Status Word (PSW), which aids the programmer in determining the 
nature of the error. 

Program interrupt messages consist of messages IFY207Iy IFY208I» 
IFY209I, and IFY210I. 

IFY207I VFNTH - PROGRAM INTERRUPT (P) - OVERFLOW PSM 

xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: The message indicates that an exponent-overflow 
exception, identified by the character C in the eighth position 
of the PSW» has occurred. This exception occurs when the result 
of a floating-point arithmetic operation is greater than or 
equal to 16*' (approximately 7.2x10'*). 

Supplemental Data Provided: The floating point number (nnnnnnnn) 
before alteration. 

Standard Corrective Action: Execution continues at the point of 
the interrupt with the result register set to the largest 
possible correctly-signed floating-point number that can be 
represented in short precision (IS^-^J^d-lS-*))! in long 
precision (16*'h(1-16-**) , or in extended precision 
(16*'x(l-16-2»)). 

Programmer Response: Make sure that a variable or variable 

expression does not exceed the allowable magnitude. Verify that 

all variables have been initialized correctly in previous source * 

statements and have not been inadvertently modified. 

IFY208I VFNTH - PROGRAM INTERRUPT (P) - UNDERFLOW PSU 
xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: The message indicates that an exponent-underflow 

exception^ identified by a D in the eighth position of the PSU> 

has occurred. This exception occurs when the result of a 

floating-point arithmetic operation is less than 16-** 
(approximately 5.^ x 10-""). 

Supplemental Data Provided: The floating point number (nnnnnnnn) 

before alteration. (f~^'' 

Standard Corrective Action: Execution continues at the point of 
the interrupt with the result register set to a true zero of 
correct precision. 
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Programmer Response: Make sure that a variable or variable 
expression is not smaller than the allowable magnitude. Verify 
that all variables have been initialized correctly in previous 
source statements and have not been inadvertently modified. 



■c 



IFY2091 VFNTH - PROGRAM INTERRUPT (P) - DIVIDE CHECK PSM 
xxxxxxxxxxxxxxxx REGISTER CONTAINS nnnnnnnn 

Explanation: This message indicates that an attempt to divide 

by zero has occurred. A fixed-point-divide exception is 

identified by a 9 in the eighth position of the PSUI; a 
floating-point-divide exception by an F. 

Supplemental Data Provided: Floating-point number (nnnnnnnn) 
before alteration* for a floating-point interrupt. 

Standard corrective Action: For floating-point-divide, 
execution continues at the point of the interrupt Mith the 
result registers set to! 

1. True zero of correct precision for case of n/0 Mhere n=0. 

2. Largest possible floating-point number of correct precision 
for case of n/0 Mhere n*0. For f ixed-point-di vide» leave 
registers unmodified and continue execution. 

Programmer Response: Either correct the source where division 
by zero is occurring, or modify previous source statements to 
test for the possibilities, or bypass the invalid division. 

IFY210I VFNTH - PROGRAM INTERRUPT (P/0) - CCCCCCCCCCCCCC PSM 
XXXXXXXXXXXXXXXX 

Explanation: The operating system has detected a condition that 
causes a program interruption. 

The letter P enclosed in parentheses indicates that the 
interruption was precise. This will always be the case for 
non-specification interrupt messages in FORTRAN except when 
using machines with special hardware on which imprecise 
interruptions may occur. The letter enclosed in parentheses 
indicates that extended precision floating point simulation has 
taken place and a secondary interrupt occurred. 

The eighth character position in the PSW (1, 4, 5, 6, 7, 9, C, 
D, or F) represents the hexadecimal code number associated with 
the type of interrupt. The following text describes those 
interrupts. 



CODE 1 — Operation Exception: 



An operation exception is 
encounters an instruction 
operation code may not be 
operation code may not be 
purpose of recognizing an 
bits of an instruction, or 



hexadecimal 
code. ) 



recognized when the processor 
with an invalid operation code. The 
assigned, or the instruction with that 
available on the processor. (For the 
operation exception, the first eight 
when the first eight bits have the 



value B2, the first 16 bits form the operation 



Supplemental Data Provided: The instruction-length code is 1, 2, 
or 3. 

Standard Corrective Action: The operation is suppressed. 

Programmer Response: Correct the operation code. 

CODE 4 — Protection Exception: 

The protection exception (code 4) is recognized when the key of 
an operand in storage does not match the protection key in the 
PSki. A message is issued only if a specification exception (code 
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6) has already been recognized in the same instruction. ^^r-\^^ 

OtherMise» the job terminates abnormally. I [) 

Supplemental Data Provided: None. 

standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: If the job has been terminated Mith a 
completion code of SYSTEM=0C6 (Specification Interrupt), correct 
the source statements that are causing boundary misalignment. 

CODE 5 — Addressing Exception: 

The addressing exception (code 5) is recognized uihen the address 
of the data is outside of the addressable storage for the 
particular system configuration or installation. A message is 
issued only if sxcspticn cedes 5 or 6 have alrsad'"' been 
recognized in the same instruction. Otheruise, the job 
terminates abnormally. 

Supplemental Data Provided: None. 

Standard corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: If the job has been terminated Mith a 
completion code of SYSTEM=0C6 (Specification Interrupt), correct 
the source statements that aret causing boundary misalignment. 

CODE 6 — Specification Exception: 

The specification exception (code 6) is recognized Nhen a data 

address does not specify an integral boundary for that unit of 

information as required by the instruction, or an improper ^^ 

register is used in an instruction. For example, a specification )l 

error Mould occur during execution of the folloMing V^.* 

instructions^ 

DOUBLE PRECISION D, E 
COMMON A, B, C 
EQUIVALENCE (B, D) 
D = 3.0D02 

Note* If an instruction causes a boundary violation, a 
specification interrupt Mill occur and the message Mill be 
issued Mith code 6. The boundary-adjustment routine Hill then be 
invoked if the BOUNDARY=ALIGN option Mas specified in the 
FORTLIB macro instruction during program installation. If an 
instruction that has been processed for boundary misalignment 
also contains a protection, addressing, or data error, the 
interrupt message Mill be reissued Mith the appropriate code (4, 
5, or 7). The job Mill then terminate because both a 
specification error and a protection, addressing, or data error 
have been detected. The completion code Mill specify that the 
job terminated because of the specification error. 

Supplemental Data Provided: None. 

Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: Make sure that proper alignment of 

variables is guaranteed. Arrange variables in fixed descending 

order according to length, or force proper alignment Mith dummy 

variables. Construct COMMON blocks so that the displacement of 

each variable can be evenly divided by the element length 

associated Mith the variable. Use the MAP option for information 

on the relative address of each variable in the block. Make sure 

that EQUIVALENCE statements do not cause misalignment. (j ;\ 

CODE 7 — Data Exception: 
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The data exception (code 7) is recognized Mhen the sign or digit 
codes for a CONVERT TO BINARY instruction are incorrect. 

Supplemental Data Provided: None. 

Standard corrective Action: The interrupted instruction is 
ignored and execution continues at the point of interrupt. 

Programmer Response: If the job has been terminated Mith a 
completion code of SYSTEM=0C6 (specification interrupt), correct 
the source statements that are causing boundary misalignment. 

CODE 9 — Fixed-Point-Divide Exception: 

The fixed-point-divide exception (code 9) is recognized Mhen 
division of a fixed-point number by zero is attempted. For 
example, a divide exception Mould occur during execution of the 
folloMing statement: 

K=I/J 
Mhere 

J=0 and 1=7 

Supplemental Data Provided: None. 

Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt. 

Programmer Response: Either correct the source Mhere division 
by zero is occurring, or modify previous source statements to 
test for the possibility of, or to bypass, the invalid division. 

CODE — Exponent -Overflow Exception: 

The exponent-overf loM exception (code C) is recognized Mhen the 
result of a floating-point addition, subtraction, 
multiplication, or division is greater than or equal to 16*' 
(approximately 7.2x10"*). For example, an exponent-overf Iom 
Mould occur during execution of the statement : 

A=1.0E + 75 + 7.2E + 75 

When the interrupt occurs, the result register contains a 
floating-point number Mhose fraction is normalized and Mhose 
sign is correct. HoMever, the number is not usable for further 
computation since its characteristic field no longer reflects 
the true exponent. The content of the result register as it 
existed Mhen the interrupt occurred is printed folloMing the 
program interrupt message Mith the format: 

REGISTER CONTAINED hhhhhhhhhhhhhhhh 

Mhere hhhhhhhhhhhhhhhh is the floating-point number in 
hexadecimal notation. (An additional 16 hexadecimal characters 
are printed for extended-precision numbers.) 

Exponent overfloM causes "exponent Mraparound" - i.e., the 
characteristic field represents an exponent that is 128 smaller 
than the correct one. Treating bits 1 to 7 (the exponent 
characteristic field) of the of the floating-point number as a 
binary integer, the true exponent may be computed as folloMs: 

TE = (Bits 1 to 7) + 128 - 6<» 

Standard Corrective Action: The result register is set to the 
largest possible floating-point number that can be represented 
in short precision (16*'H( 1-16-*) ) in long precision 
(16*'x(l-l6-i*), or in extended precision (16*'x(l-16-*») ) , but 
the sign of the result is not changed. The condition code is not 
altered. 
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Programmer Response: Make sure that a variable expression does 
not exceed the allowable magnitude. Verify that all variables /C^ 

have been initialized correctly in previous source statements \J^' 

and have not been inadvertently modified in intermediate source. 

CODE D*— 'Exponent -Underflow Exception: 

The exponent-underfloM exception (code D) is recognized Mhen the 
result of a floating-point addition^ subtraction^ 
multiplication^ or division is less than 16-^^ (approximately 
5.4x10-^^). For example^ an exponent-'underf Iom exception Mould 
occur during execution of the statement^ 

A=-1.0E - 50 X l.OE - 50 

Although exponent underflows are maskable* FORTRAN jobs are 
executed uiith the mask enabled so that the library Mill handle 
such interrupts. 

When the interrupt occurs* the result register contains a 
floating-point number whose fraction is normalized and whose 
sign is correct. However* the number is not usable for further 
computation since its characteristic field no longer reflects 
the true exponent. The content of the result register as it 
existed Mhen the interrupt occurred is printed folloMing the 
program interrupt message Mith the format* 

REGISTER CONTAINS hhhhhhhhhhhhhhhh 

where hhhhhhhhhhhhhhhh is the floating-point number in 
hexadecimal notation. (An additional 16 hexadecimal characters 
are printed for extended-precision numbers.) Exponent overflow 
causes "exponent Mraparound" - i.e.* the characteristic field 
represents an exponent that is 128 larger than the correct one. 
Treating bits 1 to 7 (the exponent characteristic field) of the 
floating-point number as a binary integer* the true exponent may {^"^w 
be computed as folloMs: %_j/l 

TE = (Bits 1 to 7) - 128 - 64 

Standard Corrective Action: The result register is set to a true 
zero of correct precision. If the interrupt resulted from a 
floating-point addition or subtraction operation* the condition 
code is set to zero to reflect the setting of the result 
regi ster. 

Programmer Response: Make sure that a variable or variable 
expression is not smaller than the allowable magnitude. Verify 
that all variables have been initialized correctly in previous 
source statements and have not been inadvertently modified in 
intermediate source. To take advantage of the * exponent 
wraparound* feature and override the FORTRAN interruption 
routine* a programmer may handle the interrupt in his own 
program* but must call an assembly language subroutine to issue 
a SPIE macro instruction. 

CODE F — Floating-Point-Divide Exception: 

The floating-point-divide exception (code number F) is 
recognized when division of a floating-point number by zero is 
attempted. For example* a floating-point divide exception would 
occur during execution of the statement^ 

C=A/B 
where 

B=0.0 and A=1.0 or B=0.0 and A=0.0 
Supplemental Data Provided: Registers before alteration. 
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Standard Corrective Action: The interrupted instruction is 
ignored and execution continues at point of interrupt with 
result registers set to: 

1. True zero of the correct precision for the case of n/0 Mhere 
n=0. 

2. Largest possible floating point number of correct sign and 
precision for case of n/0 Mhere n;^0 . 

Programmer Response: Either correct the source statement (s) 
Mhere division by zero is occurring^ or modify previous source 
statements to test for the possibility of» or to bypass* the 
invalid division. 
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EXECUTION ERROR MESSAGES 

Execution error messages have the form« 

iFYxxxZ VFNTH C message text] 

TRACEBACK FOLLOWS-ROUTINE ISN REG. 1<^,REG. 15, REG. 0,RE6. 1 

The description of each diagnostic message contains the error 
number, the abbreviated module name for the origin of the error, 
and an explanation describing the type of error. In addition, 
supplemental data is provided and standard corrective action to 
be taken to correct the error is described. 

Variable information in the message is shown in loMer case 
letters, and, in the corrective action descriptions, • denotes 
the largest possible number that can be represented for a 
floating-point value. 

The abbreviated module name for the origin of the error is? 

VASYN IFYVASYN routine (performs asynchronous I/O 
processing). 

VDIOS IFYVDIOS routine (performs direct access I/O 

operations for FORTRAN load module execution). 

VCVTH IFYVCVTH routine (performs conversions). 

VSIOS IFYVSIOS routine (performs I/O operations for FORTRAN 
load module execution). 

VCOMH IFYVCOMH routine (performs interruption and error 
procedures) . 

VSERH IFYVSERH routine (performs the processing of errors Vj*^ 

detected during compilation of the load modules). 

LDFIO IFYLDFIO routine (performs list-directed I/O 
processing). 

NAMEL IFYNAMEL routine (performs namelist processing). 

other Mathematical routine implicit or explicit entry points 
(perform mathematical calculations). 

Note* Messages issued by the error handler contain no module or 
entry point name. For information on the error handling 
subroutines, refer to VS FORTRAN Application Programming 
Language Reference . 

IFY160I VCOMH - FORMAT NESTED PARENTHESES TABLE OVERFLOU. 
REDUCE NUMBER OF NESTED PARENTHESES IN PROGRAM AND 
RERUN 

Explanation: The format contains more nested parentheses than 
the library table can hold. 

Supplemental Data Provided: None. 

standard Corrective Action: Parenthesis group is ignored. 
Processing continues. Results are unpredictable. 

Programmer Response: Reduce the number of parenthesis groups to 
50 or less. 



IFY161I VASYN - ASYNCHRONOUS I/O NOT SUPPORTED ON THIS 
OPERATING SYSTEM (DOS OR CMS) 
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Explanation: A program called the asynchronous I/O scheduling 
routine Mhile running in a DOS or CMS environment. 

Supplemental Data Provided: TRACEBACK PATH is provided. If 
GOSTMT is used as a compiler option^ then TRACEBACK provides the 
ISN of the I/O statement making the asynchronous I/O request. 

Standard Corrective Action: The asynchronous I/O request is 
ignored and the ARRAY expected to be modified^ if a READ (INH) 
request* is unchanged. The ARRAY isn't saved or written if a 
URITE (OUTt) request. 

Programmer Response: Run the program on an OS system (MVS or 
VSl) or rewrite the program to use synchronous I/O 
(unformatted) . 



IFY162I VVIOS (CVIOS, DVIOS) - WRITE STATEMENT CANNOT BE 
ISSUED TO SEQUENTIALLY ACCESSED VSAN RRDS FILE 

f 1 lename 

Explanation: An attempt was made to add a record to a 
sequentially accessed VSAM relative record file that was not 
empty when the file uias opened. 

Supplemental Data Provided: Name of the file upon which the 
request was made. 

Standard Corrective Action: The execution is terminated. 

Programmer Response: If a record must be added to a nonempty 
VSAM relative record file* use the access mode of DIRECT. 



c 



IFY163I VVIOS (CVIOS, DVIOS) - FILE POSITIONING INPUT/OUTPUT 
STATEMENT IS NOT ALLOWED IN THE DIRECT ACCESS METHOD 

Explanation: A file positioning input/output statement (REMIND* 
BACKSPACE, or ENDFILE) was issued to a VSAM direct file. 

Supplemental Data Provided: None. 

Standard corrective Action: The execution is terminated. 

Programmer Response: Correct the program so that no file 
positioning input/output statements are issued for VSAM direct 
f i les. 



IFY164I VVIOS (CVIOS» DVIOS) - RECORD LENGTH OF FILE filename 
IS LONGER THAN THE ONE DEFINED IN VSAM CATALOG 

Explanation: The maximum record length for the file found in 
VSAM catalog (that is, the value specified in the RECORDSIZE 
parameter when the VSAM cluster is defined using Access Method 
Services) is less than the length of the record to be written. 

I Supplemental Data Provided: Name of the file upon which the 
I request was made. 

I Standard Corrective Action: The execution is terminated. 

Programmer Response: Either correct the program so that the 
length of the record to be written is not greater than the one 
in the VSAM catalog, or change the record length in the VSAM 
catalog by redefining the cluster. 



IFY165I VVIOS (CVIOSy DVIOS) - FILE filename IS CONNECTED TO 
A KEY SEQUENCED DATA SET 

Explanation: VS FORTRAN supports VSAM entry sequenced data sets 
(ESDS) and relative record data sets (RRDS). The file used was 
connected to VSAM key sequenced data sets (KSDS). 
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Supplemental Data Provided: Name of the file upon uhich the 
request uas made. 

Standard Corrective Action: The execution is terminated. 

Programmer Response: Change the JCL so that the file is 
connected to ESDS or RROS. 

IFY166X VVIOS (CVIOS, DVZOS) - ENDFZLE STATEMENT ZS TREATED 
AS DOCUMENT ATZON FOR VSAM FZLE filename 

Explanation: A request was made to write an end-of-file mark on 
a VSAM file. 

Supplemental Data Provided: Name of the file upon which the 
request was made. 

Standard Currective Action: The request is ignored. 

Programmer Response: Remove the statement after carefully 
checking the effect of removing the statement. 



o 



1FY167Z VVZOS (CVZOS> DVZOS) - ERROR ON VSAM FZLE: UHEN 
ATTEMPTING TO PROCESS A(N) XXXXXXXXXX RC=yy ERROR 

CODE=ZZZ 

Explanation: An error was detected by VSAM while an input or 
output statement indicated by xxxxxxxxxx was being processed. 
The return code and the error code returned by VSAM were yy and 
zzZf respectively. 

Supplemental Data Provided: Name of the operation that caused 
the error and the return and error codes from VSAM. 

Standard Corrective Action: The execution is terminated. 

Programmer Response: Determine the cause for the error by 
examining the VSAM return and error codes. 

ZFY168Z VVZOS (CVZOS> DVZOS) - XXXXXXXXXX OPERATZON ZS ZSSUED 
TO UNOPENED VSAM FZLE ON UNZT UUU 

Explanation: An input or output request was made to an unopened 
VSAM file. 

Supplemental Data Provided: Name of the operation issued to an 
unopened file. 

Standard corrective Action: The execution is terminated. 

Programmer Response: Make sure that the OPEN statement for the 
file was successfully executed. 
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ZFY169Z DFNTH - EXTENDED PRECZSZON OPERATZON NOT SUPPORTED ZN 
DOS ENVZRONMENT, PSU, XXXXXXXXXX 

Explanation: An extended precision machine operation was 
attempted in the DOS/VSE environment that is not supported by 
the machine instruction set. This is generally a divide 
operation. 

Supplemental Data Provided: The program status word (PSU) at the 
point of interrupt. An IFY210I message with TRACEBACK or a dump 
of storage follows. 

Standard Corrective Action: None. 

Programmer Response: Change program to exclude the unsupported 
instructi on. 
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XFY170X VSIOS - OPEN OR CLOSE STATEMENT NOT ALLOUED ON OBJECT 
PROGRAM ERROR UNZT» REQUEST FOR FILE filename 

Explanation: An OPEN or CLOSE statement uias directed to the 
unit upon uihich execution time error messages are being 
directed. 

Supplemental Data Provided: Name of the file connected to the 
error message unit. 

Standard Corrective Action: The request is ignored and the job 
terminated if an ERR= or lOSTAT parameter uias not specified in 
the OPEN or CLOSE. 

Programmer Response: Change the program to request I/O to a 
unit not being used for error messages. 

XFY171Z VSIOS - CLOSE STATUS OF KEEP IS NOT ALLOMED ON FILE 

OPENED UITH STATUS OF SCRATCH, FILE filename 

Explanation: The file connected to the unit specified in the 
CLOSE statement Mas opened as a SCRATCH file and cannot be kept 
at close time. 

Supplemental Data Provided: Name of the file connected to the 
unit specified in the CLOSE statement. 

Standard Corrective Action: The CLOSE status is changed to 
DELETE and execution proceeds. 

Programmer Response: Change either the OPEN or CLOSE STATUS 
parameter to agree Mith the file usage. 

IFY172I VSIOS - FILE filename ALREADY CONNECTED TO A UNIT* 
OPEN REQUEST CANCELLED. 

Explanation: The file Mhose name appears in the message already 
is connected to a unit which is different than the unit 
specified in the OPEN statement. 

Supplemental Data Provided: Name of the file specified in the 
OPEN statement. 

Standard Corrective Action: The OPEN request is ignored. 

Programmer Response: Change the program to specify a different 
unit in the OPEN request or change the logic to use the current 
unit to uihich the file is connected. 

IFY173I VSIOS - OPEN SPECIFYING UNFORMATTED I/O ATTEMPTED ON 
FORMATTED FILE filename 

Explanation: FORMATTED and UNFORMATTED I/O request on the same 
file is not allowed. 

Supplemental Data Provided: Name of the file upon which the 
request was made. 

Standard Corrective Action: The I/O operation is ignored. 

Programmer Response: Correct the program to direct FORMATTED 
and UNFORMATTED I/O to different files. 

IFY174I VSIOS - OPEN SPECIFYING FORMATTED I/O ATTEMPTED ON 
UNFORMATTED FILE filename 

Explanation: FORMATTED and UNFORMATTED I/O request on the same 
file is not allowed. 
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Supplemental Data Provided: Name of the file upon Mhich the 
request Mas made. 

Standard Corrective Action: The I/O operation is ignored. 

Programmer Response: Correct the program to direct FORMATTED 
and UNFORMATTED I/O to different files. 

IFY175I OPSYS > AN INVALID LITERAL PARANETER MAS DETECTED ON 
THE CALL OPSYS STATEMENT 

Explanation: The first parameter in the call to OPSYS did not 
specify a literal of FILEOPT or LOAD. 

Supplemental Data Provided: None. 

standard corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify the correct 
parameter value. 



H_y 
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XFY176X 0PSY8 - THE FORTRAN LOGICAL UNIT NUMBER IS ASSIGNED 
TO SYSTEM USE* UNIT unit 

Explanation: The unit specified in the call to OPSYS currently 
has a file connected and cannot be modified. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to process the I/O on 
a different unit. 

IFY177I OPSYS - INVALID BLOCK SIZE SPECIFIED; ASCII (18-2048) 
OR EBCDIC (18-32767), UNIT unit 

Explanation: An invalid block size was specified for the unit 
set up for ASCII or EBCDIC processing. 

Supplemental Data provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify a block 
size consistent with the file usage. 

IFY178I OPSYS - INVALID BUFFER OFFSET SPECIFIED; GREATER THAN 
99, EXCEEDS BLOCK SIZE OR IS NEGATIVE, UNIT unit 

Explanation: The buffer offset specified uias larger than the 
blocksize for the file> or Mas a negative value, or a value 
greater than 99. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to specify an offset 
consistent to the restrictions. 

XFY179I OPSYS - AN I/O OPERATION HAS ALREADY BEEN PERFORMED 
ON THE UNIT, REQUEST IGNORED FOR UNIT unit 

Explanation: An attempt was made to modify the parameters for a 
file Mhich Mas already being used for I/O operations. 

Supplemental Data Provided: Unit number specified in the call to 
OPSYS. 

Standard Corrective Action: The request is ignored. 

Programmer Response: Correct the program to process the I/O on 
a different unit. 

IFY180I VOPEN - FILE PARAMETER IS NOT VALID FOR AN OPEN 
STATEMENT, UNIT unit 

Explanation: The FILE= parameter on the OPEN statement did not 
specify a 7 character or less name and/or specified a name that 
did not start Mith an alphabetic character. 

supplemental Data Provided: Unit number for Mhich the command 
Mas issued. 

Standard corrective Action: The OPEN statement is ignored. 
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Programmer Response: Correct the program to specify a correct 
filename. 

ZFY181Z VOPEN - STATUS PARAMETER XS NOT VALID FOR AN OPEN 
STATEMENT* UNZT unit 

Explanation: The STATUS= parameter did not specify HEU, OLD* 
SCRATCH* or UNKNOMN as the status of the file being opened on 
the unit. 

Supplemental Data Provided: Unit number for which the command 
Mas issued. 

Standard corrective Action: STATUS is set to UNKNOUN and 
processing continues. 

Programmer Response: Correct the program to specify a correct 
STATUS parameter. 

ZFY182Z VOPEN - ACCESS PARAMETER ZS NOT VALZD FOR AN OPEN 
STATEMENT, UNZT unit 

Explanation: The ACCESS^ parameter did not specify SEQUENTIAL 
or DIRECT for the type of file access to be employed on the 
unit. 

Supplemental Data Provided: Unit number for which the command 
Mas issued. 

Standard corrective Action: The OPEN request is ignored. 

Programmer Response: Correct the program to specify a correct 
ACCESS parameter. 

■\ 

ZFY183Z VOPEN - BLANK PARAMETER ZS NOT VALZD FOR AN OPEN ^<-H 

STATEMENT, UNZT unit * 

Explanation: The BLANK= parameter did not specify ZERO or NULL 
for the treatment of blanks on a FORMATTED I/O request. 

Supplemental Data Provided: Unit number for Mhich the command 
Mas issued. 

Standard Corrective Action: The BLANK parameter is assigned the 
value NULL. 

Programmer Response: Correct the program to specify a correct 

BLANK parameter. 

ZFYIS^Z VOPEN - FORM PARAMETER ZS NOT VALZD FOR AN OPEN 
STATEMENT, UNZT unit 

Explanation: The FORM= parameter did not specify FORMATTED or 
UNFORMATTED for the file. 

Supplemental Data Provided: Unit number for which the command 
Mas issued. 

Standard corrective Action: The OPEN request is ignored. 

Programmer Response: Correct the program to specify the correct 

formatting technique. 



ZFY185Z VOPEN - STATUS OF SCRATCH NOT ALLOUED FOR A NAMED 
FILE OPEN STATEMENT, UNZT unit 



%.J 



Explanation: An OPEN requested FILE= and STATUS=»SCRATCH» at "*-< 

the same time. The STATUS value is not allowed. / 
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Supplemental Data Provided: Unit number for which tha command 
Mas issued. 

Standard Corrective Action: The STATUS value is set to UNKNOUN 
and processing continues. 

Programmer Response: Correct the program to make the two 
parameters consistent Mith each other. 

XFY186Z VCLOS - STATUS PARAMETER XS NOT VALID FOR A CLOSE 
STATEMENT f UNIT unit 

Explanation: The STATUS= parameter did not specify KEEP or 
DELETE* or a STATUS of KEEP was specified on the CLOSE statement 
for a file that was opened with a STATUS of SCRATCH. 

Supplemental Data Provided: Unit number for which the command 
was issued. 

Standard corrective Action: The STATUS value is set to DELETE if 
the file was opened as SCRATCH; otherwise* the status is set to 
KEEP. 

Programmer Response: Correct the program to specify the correct 
status values or make the status of the OPEH and CLOSE 
consistent with each other. 

I FY 1871 DSPAN - LOUER BOUND OF ARRAY DIHN. GREATER THAN 
UPPER. 

Explanation: For an array with adjustable dimensions the lower 
bound of an array dimension has been specified greater than the 
upper bound. 

Supplemental Data Provided: None. 

Standard Corrective Action: Span calculations are not completed 
for this array. Invalid results will probably generated from 
references to this array. 

Programmer Response: Correct the calculation or specification 
of the dimensions. 

IFY188I CITFN - ARGUMENT TO CHAR FUNCTION GREATER THAN 255 

Explanation: A value greater than 255 (highest EBCDIC 
representation) has been specified for the CHAR function. 

Supplemental Data Provided: None. 

Standard corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify correct value. 

I FY 1891 INDEX - INVALID LENGTH FOR INDEX - OP TUO. 

Explanation: The length specified for the second operand of tha 
INDEX function is less than or equal to zero or greater than 
500. 

Supplemental Data Provided: None. 

Standard corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify tha correct length. 
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ZFY190Z INDEX - INVALID LENGTH FOR INDEX - OP ONE. 

Explanation: The length specified for the first operand of the 
INDEX function is less than or equal to zero or greater than 
500. 

supplemental Data Provided: None. 

Standard corrective Action: The function is not evaluated and 
execut<ion continues. 

Programmer Response: Specify the correct length. 

IFY191I LXCnP - INVALID LENGTH FOR LEXICAL COMPARE - OPERAND 
TWO. 

Explanation: The length specified for the second operand of the 
LGEr LGT LLEy or LLT function is less than or equal to zero or 
greater than 500* 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated end 
execution continues. 

Programmer Response: Specify the correct length. 

IFY192I LXCMP - INVALID LENGTH FOR LEXICAL COMPARE - OPERAND 
ONE. 

Explanation: The length specified for the first operand of the 
LGE, LGT HE, or LLT function is less than or equal to zero or 
greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not evaluated and 
execution continues. 

Programmer Response: Specify the correct length. 

IFY193I CCMPR - INVALID LENGTH FOR CHARACTER COMPARE - OP 
TUO. 

Explanation: The length of the second operand of a Character 
relational compare (.eq.» .lt.» ...) is less than or equal to 
zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 

IFY194I CCMPR - INVALID LENGTH FOR CHARACTER COMPARE - OP 
ONE. 

Explanation: The length of the first operand of a Character 
relational compare (.eq.* .lt.» ...) is less than or equal to 
zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The function is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 
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XFY195I CNOVE - CHARACTER HOVE INVALID - TARGET AND SOURCE 
OVERLAP DESTRUCTIVELY. 

Explanation: The storage locations assigned to the target and 
source sre such that source data Mill be destroyed by the 
requested assignment. 

Supplemental Data Provided: None. 

standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Check storage MAP for storage assignments. 
Also check EQUIVALENCE statements. 

IFY196I CNOVE - INVALID TARGET LENGTH FOR CHARACTER MOVE. 

Explanation: The length of the target (left of equal variable) 
is less than or equal to zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 

IFY197I CMOVE - INVALID SOURCE LENGTH FOR CHARACTER MOVE. 

Explanation: The length of the source (right of equal 
expression) is less than or equal to zero or greater than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The assignment is not performed and 
execution continues. 

Programmer Response: Specify the correct length. 

IFY198I CNCAT - CONCATENATED STRING LENGTH GREATER THAN 
TARGET 

Explanation: The concatenation of the specified character 
strings Mill produce a string Mhose length is greater than 500 
or greater than the length of the target (left of equal 
variable). 

Supplemental Data Provided: None. 

Standard corrective Action: The concatenated string is truncated 
on the right. 

Programmer Response: Specify the correct length. 

IFY199I CNCAT - INVALID LENGTH FOR CONCATENATION OPERAND 

Explanation: The length of one of the operands of a 
concatenation operation is less than or equal to zero or greater 
than 500. 

Supplemental Data Provided: None. 

Standard Corrective Action: The concatenation operation is not 
performed. 

Programmer Response: Specify the correct length. 
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ZFY200Z VZXOS - END OF INTERNAL FILE* Z/0 PROCESSING ENDS 

Explanation: The end of an internal file Mas reached before the 
completion of an internal I/O request. 

Supplemental Data Provided: None. 

Standard Corrective Action: Return to END= label if the request 
is a READ; otheruiise* the job is terminated. 

Programmer Response: Either keep a counter to avoid exceeding 
the end of record or file* or insert an END=n parameter on the 
READ statement for appropriate transfer of control on end of 
data set. Check all job control statements. 

I IFY201Z VIIOS - REQUEST FOR INTERNAL FILE CONTROL* CLOSE OR 
I LIST DIRECTED IS NOT ALLOUED 

Explanation: A request for OPEN» CLOSE* list directed file 
input/output* or control operation has been requested for an 
internal file. Such operations sre not supported for internal 
f i les. 

Supplemental Data Provided: None. 

Standard corrective Action: The function is not performed* and 
execution continues. 

Programmer Response: Change the source program* and rerun the 
job. 

IFY203I IBCOH - INVALID COMBINATION OF INITIAL* TEST, AND 
INCREMENT VALUE FOR READ/URITE IMPLIED DO* FILE 

filename 

Explanation: A READ/UIRITE statement Mith an implied DO had an 
invalid combination of initial* test* and increment values (II* 
12* and 13* respectively) for one of its levels of nesting^ 

1. 13=0* or 

2. I2<I1 and I3<I2-I1* or 

3. IKI2 and I3<0. 

Supplemental Data Provided: Filename. 

Standard corrective Action: Processing is terminated. 

Programmer Response: Check the statements which set the 
initial* test* and increment variables. 

IFY204I LDFIO - ITEM SIZE EXCEEDS BUFFER LENGTH, FILE 
f i lename 

Explanation: For a non-complex number* the number is longer 
than the buffer. For a complex number* half the length of the 
number plus one (for the comma) is longer than the buffer. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure that the record length specified 
is large enough to contain the longest item in the I/O list. 
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IFY205Z VASYN - I/O SUBTA8K ABENDED 

Explanation: An asynchronous I/O subtask resulted in an 
abnormal termination. 

Supplemental Data Provided: None. 

Standard corrective Action: Processing is terminated. 

Programmer Response: Verify that all DD statements are coded 
correctly and refer to the appropriate data sets. Check all READ 
and URITE statements and any END FILE» REMIND^ and BACKSPACE 
statements. Check the system completion code for assistance in 
determining the type of error that caused abnormal termination. 

XFY206I VCVTH - INTEGER VALUE OUT OF RANGE nnnnnnnn 

Explanation: An integer uias too large to be processed by the 
load module. (The largest integer that can be processed is 
2XK15-1 for INTEGERX2 and 2K)(31-1 for INTEGERx^.) 

Supplemental Data Provided: integer input for processing. 

Standard Corrective Action: Specify as much of the louier order 
part of the given integer as will fit for the integer size 
(INTEGER)<2 or INTEGER><4) specified. 

Programmer Response: Make sure that all integer input data used 
is Ml thin the required range for the integer variable size. 

IFY207I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 

IFY208I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 

1FY209I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 

IFY210I 

Explanation: Refer to "Program Interrupt Messages" for 
information on this message. 

IFY211I VCOMH - ILLEGAL field FORMAT CHARACTER SPECIFIED Char 
FILE filename 

Explanation: An invalid character has been detected in a FORMAT 
statement. 

Supplemental Data Provided: The field containing the character 
in error, the character specif ied» and the filename. 

Standard Corrective Action: Format field treated as an end of 
format. 

Programmer Response: Make sure that all format specifications 
read in at object time are valid. 
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ZFY212Z VCOMH - FORMATTED Z/0, END OF RECORD^ FILE filename 

Explanations An attempt has been made to read or uirite a 
record, under FORMAT control* that exceeds the buffer length. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: For a read» the remainder of the I/O 
list is ignored; for a Mrite» a new record is started with no 
control character. 

Programmer Response: If the error occurs on input, verify that 
a FORMAT statement does not define a FORTRAN record longer than 
the record supplied by the data set. No record to be punched 
should be specified as longer than 80 characters. For printed 
output, make sure than no specification is longer than the 
printer's line length. 



IFY213I 



VCOMH 
LDFIO 
VASYN 



- READ, END OF RECORD, FILE filename 



Explanation: 

FOR VCOMH AND VASYN: The input list in an I/O statement without 
a FORMAT specification is larger than the logical record. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure the number of elements in the 
I/O list matches the number of items in the record. 

FOR LDFIO: A FORTRAN list-directed READ statement attempted to 
read more items from a variable spanned logical record than Mere 
present in the record. (This message can be issued only when the 
record format is variable spanned.) 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Make sure that the records and the input 
data agree in number. Either delete extra variable names or 
supply additional logical records. 

IFY21^I I VSIOS 1 - UNFORMATTED I/O, RECORD FORMAT NOT 

I VASYN i SPECIFIED AS vs OR VBS, FILE filename 

Explanation: 

FOR VSIOS: For unformatted records read or written in EBCDIC 
sequentially organized data sets, the record format 
specification must be variable spanned and can be blocked or 
unblocked. This message appears if the programmer has not 
specified variable spanned, or if an ASCII tape was specified. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: For non-ASCII data sets, the read 
request is ignored; for a write request, the record form is 
changed to variable spanned. 

Programmer Response: Correct the record format to variable 
spanned. 
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For VASYNs For unformatted records in an asynchronous I/O 
operation^ the record format specification (RECFM) did not 
include the characters VS. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: For an input operation^ the read 
request is ignored; for an output operation^ VS is assumed. 

Programmer Response: Change the record format specification to 
VS. 

ZFY215I VCVTH - ILLEGAL DECIMAL CHARACTER Char 

Explanation: An invalid character Mas found in the decimal 
input corresponding to an I» E» F» or D format code. 

Supplemental Data Provided: The record in which the character 
appeared. 

Standard Corrective Action: replaces the character 
encountered. 

Programmer Response: If an IFY214I message has occurred 
previously^ correct the source causing the error. OtherMise> 
make sure that all decimal input is valid. Correct any FORMAT 
statements specifying decimal input where character input should 
be indicated. 

IFYZiei VSIOS - INVALID USE OF I/O CONTROL COMMAND AT LOAD 
POINT filename 

Explanation: The use of a BACKSPACE control command Mas 
recognized when the file Mas at the start of the first record. 

Supplemental Data Provided: Filename for which command Mas 
i ssued. 

Standard corrective Action: The control command is ignored. 

Programmer Response: Correct program to ensure that a BACKSPACE 
will not occur at the first command for a file. 

IFY217I VSIOS - END OF DATA SET, FILE filename. 

IFY217I VASYN - END OF DATA SET, FILE filename. 

Explanation: An end of data set Mas sensed during a READ 
operation; that \s, a program attempted to read beyond the data. 

Supplemental Data Provided: filename. 

Standard corrective Action: The next file is read^ that is» the 
data set sequence number is incremented by 1 in the OS 
environment. A permanent I/O error is set for the DOS 
envi ronment . 

Programmer Response: Either keep a counter to avoid exceeding 
the end of record or file» or insert an END=n parameter on the 
READ statement for appropriate transfer of control on end of 
data set. Check all job control statements. 

IFY218I name - I/O ERROR, FILE filename, xxx...xxx 

Explanation: VASYN, VSIOS or VDIOS - One of the folloMing 
occurred* 

• A permanent I/O error has been encountered. 
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• For sequential I/0» the length of a physical record is 
inconsistent with the default block size or the block size 
specified on the job control statement. 

• An attempt has been made to read or Mrite a record that is 
less than 18 bytes long on magnetic tape. 

XXX... XXX is the character string specifying the type of I/O 
error. 

Note! If a permanent I/O error has been detected while writing 
in the object error unit data set» the error message is written 
to the programmer either at the terminal or the OS SYSOUT data 
set# and job execution is terminated. 

Supplemental Data Provided: Abbreviated module name and 
f i lename. 

Standard Corrective Action: The interrupted instruction and the 
l/Q request are ignored. After the traceback is completed* 
control is returned to the call routine statement designated in 
the ERR parameter of an I/O statement if that parameter was 
specified. 

Note: ERR=parameter is honored. 

Programmer Response: For sequential I/0» make sure that the 
length of the physical record is consistent with the default or 
specified block size. Check all job control statements. Make 
sure that no attempt has been made to read or write a magnetic 
tape record that is fewer than 18 bytes in length. 






IFY219Z 



VSIOS 
VDIOS 
VASYN 



- OPEN FAILED, NISSING OR INVALID CONTROL 
STATEMENT, FILE filename 



V_-y / 



Explanation: 

FOR EBCDIC DATA SETS: 

Either a data set is referred to in the load module and no job 
control statement is supplied for it» or a job control statement 
has an erroneous filename. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The interrupted instruction is 
ignored* and execution continues and the I/O request is ignored. 

Note: If no job control statement has been supplied for the 
object error unit data set* the message is written either to the 
programmer at the terminal or console or to the OS SYSOUT data 
set* and the job is terminated. 

Programmer Response: Either provide the missing job control 
statement* or correct any erroneous job control statement. Refer 
to VS FORTRAN Application Programming: Guide for more 
information. 

FOR ASCII DATA SETS: 

A data set may have been referred to in the load module but had 
no corresponding job control statement* or the job control 
statement may have had an erroneous filename. 

Supplemental Data Provided: Filename. 

standard Corrective Action: The I/O request is ignored and 
execution continues. 
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Programmer Response: Either provide the missing job control 
statementt or correct any erroneous filename. Also» for OS 
files» be sure that the LABEL parameter on the DD statement 
specifies AL (or NL provided that the DCB subparameter OPTCD^Q 
is also specified). Also be sure that the operating system 
permits the use of ASCII data sets. ^ 

IFY220I name - UNIT NUHBER OUT OF RANGEt UNIT unit 

Explanation: VSIOS or VASYN - A unit number exceeds the limit 
specified for unit numbers when the library Mas installed. 

Supplemental Data Provided: Abbreviated module name and unit 
number. 

Standard Corrective Action: The interrupted instruction is 
ignored^ and execution continues. 

Programmer Response: Correct the invalid unit number. 

ZFY221I NAMEL - NAME LARGER THAN EIGHT CHARACTERS. NANE^name 

Explanation: An input variable name is longer than eight 
characters. 

Supplemental Data Provided: First eight characters of the name 
specified. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Correct the invalid NAMELIST input 
variable* or provide any missing delimiters. 

IFY222I NAMEL - NAME NOT IN NAMELIST DICTIONARY NAME=name 

Explanation: An input variable name is not in the NAMELIST 
dictionary* or an array is specified with an insufficient amount 
of data. 

Supplemental Data Provided: The name specified. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Make sure that a correct NAMELIST 
statement is included in the source module for all variable and 
array names read in using NAMELIST. 

IFY223I NAMEL - END OF RECORD ENCOUNTERED BEFORE EQUAL SIGN. 

NAHE=name 

Explanation: An input variable name or a subscript has no 
delimiter. 

Supplemental Data Provided: Name of item. 

Standard Corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Make sure that all NAMELIST input data is 
correctly specified and all delimiters ar& correctly positioned. 
Check all delimiters. Make sure that sequence numbers are not 
present in columns 73 through 80. 






Library Interruption and Error Procedures and Messages 107 



Page of SC26-3989 as updated 03 June 1981 by TNL SN26-0852 

IFY224Z NAMEL - SUBSCRIPT FOR NON-DIMEHSIONED VARIABLE OR 
SUBSCRIPT OUT OF RANGE. NAHE=name 

Explanation: A subscript is encountered after an undimensfoned \^ 
input name> or the subscript is too large. 

Supplemental Data Provided: Name of item. 

Standard corrective Action: The remainder of the NAMELIST 
request is ignored. 

Programmer Response: Insert any missing DIMENSION statements* 
or correct the invalid array reference. 

ZFY225I VCVTH - ILLEGAL HEXADECIMAL CHARACTER Char 

Explanation: An invalid character is encountered on input for 
the Z format code. 

Supplemental Data Provided: Display the record in uihich the 
character appeared. 

Standard Corrective Action: o replaces the encountered 
character. 

Programmer Response: Either correct the invalid character » or 
correct or delete the Z format code. 

IFY226I VCVTH - REAL VALUE OUT OF RANGE chars 

Explanation: A real number Mas too large or too small to be 
processed by the load module. (The largest number that can be 
processed is 16^'-1; the smallest number that can be processed 
is 16-**.) 

Supplemental Data Provided: The field of input characters. Wy 

Standard corrective Action: if the number Mas too large* the 
result is set to 16*^-1. If the number Mas too small* the result 
is set to zero. 

Programmer Response: Make sure that all real input is Mi thin 
the required range for the number specified. 

IFY227I LDFIO - ERROR IN REPEAT COUNT* FILE filename 

Explanation: A repeat count ik^ ) Mas not folloMed by a 

blank* comma* or integer. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
i gnored. 

Programmer Response: Make sure that all repeat counts arG 
folloMed by a valid character : a blank* a comma* or an integer. 

IFY228I VASYN - LAST ELEMENT IN THE I/O LIST HAS A LOMER 
ADDRESS THAN THE FIRST ELEMENT. FILE filename 

Explanation: An I/O list contained an element having a loMer 
storage address than the first element in the list. 

Supplemental Data Provided: Filename. 

standard corrective Action: The interrupted instruction is 
ignored* and execution continues. 

Programmer Response: Make sure that all elements in the I/O 
list are specified in the correct order. 
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IFY230I VSERH - SOURCE ERROR AT ZSN ' ' EXECUTION 
TERMINATED. THE PROGRAM NAME IS 'program*. 

Explanation: An attempt to run a program containing compile 
errors has been intercepted at the execution of the statement in 
error. 

Supplemental Data Provided: ISN of statement in compiled program 
that is in error* and the name of the routine or subroutine in 
Mhich the ISN is located. 

Standard Corrective Action: Execution terminates with a return 
code of 16. 

Programmer Response: Correct the source program statement* and 
rerun the job. 

IFY231I VSIOS - SEQUENTIAL I/O ATTEMPTED ON A DIRECT ACCESS 
DATA SET* UNIT unit 

IFY231I VDIOS - DIRECT ACCESS I/O ATTEMPTED BEFORE AN OPEN OR 
DEFINE FILE, UNIT unit 

Explanation: (1) Direct access I/O statements are used for a 
sequential file* or I/O statements for a sequential file are 
used for a direct access file. (2) The same file cannot be 
opened in the same programming unit for both sequential and 
direct access processing. 

Supplemental Data Provided: Unit number. 

Standard corrective Action: The I/O request is ignored. 

Programmer Response: 

For Cause 1: Either include the necessary DEFINE FILE statement 
for direct access or delete the DEFINE FILE for a sequential 
file. Make sure that all job control statements are correct. 
Verify that all data sets are referenced with valid FORTRAN 
statements for the file type. 

For Cause 2^ Make sure the same filename is not used twice 
within the same program unit for different types of access. 

For Cause 3s For a file opened for direct access* the READ or 
UIRITE statement must contain a record specification (REC= or 
u»r). 

For a file opened for sequential access* the READ or WRITE 
statement must not contain a record specification (REC= or 
u'r). 

IFY232I VDIOS - RECORD NUMBER nnnn OUT OF RANGE, FILE 
filename 

Explanation: The relative position of a record is not a 
positive integer* or the relative position exceeds the number of 
records in the data set. 

Supplemental Data Provided: Record number and filename. 

Standard corrective Action: The I/O request is ignored. 

Programmer Response: Make sure that the relative position of 
the record on the data set has been specified correctly. Check 
all job control statements. 

IFY233I VDIOS - RECORD LENGTH GREATER THAN 32767 SPECIFIED, 
FILE filename 



Library Interruption and Error Procedures and Messages 109 



Explanation: A unit number assigned to a direct access data set 
is used for a sequential data set. 

Supplemental Data Provided: Unit number. 

Standard corrective Action: The request for direct I/O is 
ignored. 

Programmer Response: Make sure that use of and/or reference to 
sequential data sets does not conflict with FORTRAN direct 
access data sets. Verify that device classes assigned by the 
installation do not conflict with the specification on the UNIT 
parameter of the job control statement. Make sure that the unit 
specified in a DEFINE FILE or OPEN statement defines a direct 
access data set. Check all job control statements. 

IFY236X VDIOS - DIRECT ACCESS READ REQUESTED BEFORE DATASET 
MAS CREATED* FILE filename 

Explanation: A READ is executed for a direct access data set 
that has not been created. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: jhe I/O request is ignored. 

Programmer Response: Make sure that either a data set utility 
program has been used> or appropriate parameters have been 
specified on the associated job control statement. For further 
information, refer to VS FORTRAN Application Programming: Guide . 

IFY237I VDIOS - INCORRECT RECORD LENGTH SPECIFIED* FILE 
f i lename 

Explanation: The length of the record did not correspond to the 
length of the record specified in the DEFINE FILE or the OPEN 
statement. 
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Explanation: The record length specified in the DEFINE FILE or ^r^ 
OPEN statement exceeds the capabilities of the system and the (| j 

physical limitation of the volume assigned to the data set in 
the job control statement. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: Record length is set to 32,000. 

Programmer Response: Make sure that appropriate parameters of 
the job control statement conform to specifications in the 
DEFINE FILE or OPEN statement; the record length in both must be 
equivalent and Mi thin the capabilities of the system and the 
physical limitations of the assigned volume. 

IFY234X VDIOS - ATTEMPT TO USE THE OBJECT ERROR UNIT AS A 
DIRECT ACCESS DATA SET, UNIT unit 

Explanation: The data set assigned to print execution error 
messages cannot be a direct access data set. 

Supplemental Data Provided: Unit number. 

Standard Corrective Action: The request for direct I/O is 
ignored. 

Programmer Response: Make sure that the object error unit 
specified is not direct access. 

IFY235X VDIOS - ATTEMPT TO USE A UNIT FOR DIRECT ACCESS I/O 

UHICH IS CURRECTLY OPEN FOR SEQUENTIAL X/0> UNIT unit 
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Supplemental Data Provided: Filename. 

Standard Corrective Action: The I/O request is ignored. 

Programmer Response: Hake sure that the length of the records 
supplied matches the length specified in the DEFINE FILE or the 
OPEN statement. If necessary* change the statement to specify 
the correct record length. 

XFY238I LDFIO - INCORRECT DELIHZTER IN COMPLEX OR LITERAL 

INPUT* FILE filename 

Explanation: A literal string in the input record(s) Mas not 
closed Mith a quotation mark (or Mas longer than 256 
characters); alternatively* a complex number in the input 
recordCs) contained embedded blanks* no internal comma* or no 
closing right parenthesis. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The remainder of the I/O list is 
ignored. 

Programmer Response: Supply the missing quotation mark or amend 
the literal data to keep Mithin the 256— character limit if the 
error Mas in the literal input. Check complex input numbers to 
see that they contain no embedded blanks* and that they contain 
an internal comma and a closing right parenthesis. 

ZFY239Z VASYN - BLKSIZE IS NOT SPECIFIED FOR AN INPUT FILE» 
FILE filename 

Explanation: The block size for an input file Mas not specified 
in the JCL or Mas specified as zero. 

Supplemental Data Provided: Filename for Mhich error occurred. 

Standard Corrective Action: The I/O request is ignored. 

Programmer Response: Make sure the block size is specified on 
the JCL for a neM file. 

IFY240I VSTAE - ABEND CODE IS: SYSTEM SSSS» USER UUUU, 
SCB/SDUA= HHHHHHHH. 

IFY240I VSTAE - 10 - NOT RESTORED. PSU IS XXXXXXXXXXXXXXXX . 

IFY2<iOI VSTAE - REGS 0-3 XXXXXXXX XXXXXXXX XXXXXXXX 
XXXXXXXX 

IFY2^0I VSTAE - REGS 4-7 XXXXXXXX XXXXXXXX XXXXXXXX 
XXXXXXXX 

IFY240I VSTAE - REGS 8-11 XXXXXXXX XXXXXXXX XXXXXXXX 
XXXXXXXX 

IFY240I VSTAE - REGS 12-15 XXXXXXXX XXXXXXXX XXXXXXXX 
XXXXXXXX 

Explanation: An abnormal termination occurred. In some 
instances* pointers to subroutine entry points may have been 
destroyed* causing the traceback map to be incomplete. If an 
incomplete subroutine traceback map is printed* the folloMing 
additional text appears betMeen message IFY240I and the 
traceback map: 
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TRACEBACK MAY NOT BEGIN WITH ABENDIN6 ROUTINE. 

Supplemental Data Provided: SSSS represents the completion code 
if a system code caused termination; UUUU represents the 
completion code if a program code caused termination. 

For specific explanations of the completion codes» see the 
messages and codes manual that applies to your operating system. 

The SCB field (HHHHHHHH) gives the address of the STAE Control 
Block* which contains the old PSUi and the contents of general 
registers at the time of abnormal termination. The PSW field 
gives the contents of the last FORTRAN program status Mord Mhen 
abnormal termination occurred. 

Input/output operations associated with the error are defined as 
NOT RESTORED, RESTORED, or NONE, as follows: 

NOT RESTORED — Input/output has been halted and cannot be 
restored. 

RESTORED — Input/output has been halted. FORTRAN will attempt 
to restart I/O and then close data sets. 

NONE — No active I/O operations were present at abnormal 
termination time. Fortran will close data sets. 

Standard Corrective Action: None. 

Programmer Response: Use the abend code, the contents of the 
SCB and PSM, and any accompanying system messages, to determine 
the nature of the error. 

IFY241I FIXPI INTEGER BASE=0> INTEGER EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (I><xj) in the W=,^ I 

subprogram IFYFIXPI (FIXPIft) where I and J represent integer 
variables or integer constants, I is equal to zero and J is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: Result = 0. 

Programmer Response* Make sure that integer variables and/or 
interger constants for an exponentiation operation are within 
the allowable range. If the base and exponent may or will fall 
outside that range during program execution, then either modify 
the operands or insert source code to test for the situation and 
make the appropriate compensation. Bypass the exponentiation 
operation if necessary. 

IFY242I FRXPI - REALX4 BASE=0.0, INTEGER EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (Rxxj) in the 

subprogram IFYFRXPI (FRXPI»), where R represents a REALX^ 

variable or REALX4 constant and J represents an integer variable 

or integer constant, R is equal to zero and J is less than or , 

equal to zero. 

supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<0,RESULT=»; 
If BASE=0.0,EXP=0,RESULT=1. 
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Programmer Responses Make sure that both the real variable or 
constant base and the integer variable or constant exponent for 
an exponentiation operation are within the allowable range. If 
the base and exponent may or will fall outside that range during 
program execution* then either modify the operand(s)» or insert 
source code to test for the situation and make the appropriate 
compensation. Bypass the exponentiation operation if necessary. 
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ZFY243I FDXPI - REALX8, BASE=0.0, INTEGER EXPONENT=exp LE 
ZERO 

Explanation: For an exponentiation operation (D)()<J) in the 
subprogram IFYFDXPI (FDXPI#), where D representa a REALMS 
variable or REAL^^S constant and J represents an integer variable 
or integer constant* D is equal to zero and J is less than or 
equal to zero. 

Supplemental Data Provided: Exponent specified. 

standard Corrective Action: 

If BASE=0,EXP<0,RESULT=»; 
If BASE=0.0,EXP=0,RESULT=1. 

Programmer Response: Make sure that both the real variable or 
constant base and the integer variable or constant exponent for 
an exponentiation operation are within the allowable range. If 
the base and exponent may or will fall outside that range during 
execution* then either modify the operand(s)* or insert source 
code to test for the situation and make the appropriate 
compensation. Bypass the exponentiation operation if necessary. 

ZFY24<»Z FRXPR - REALX4, BASE=0.0» REALX4 EXPONENT=exp LE ZERO 

Explanation: For an exponentiation operation (RJ<^5) in the 
subprogram IFYFRXPR (FRXPRft), where R and S represent REALJ<^ 
variables or REALJ<^ constants, R is equal to zero and S is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

standard Corrective Action: 

If BASE=0,EXP<0,RESULT=»; 
If BASE=0.0,EXP=0,RESULT=1. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for an exponentiation operation are 
within the allowable range. If the base and exponent may or will 
fall outside that range during program execution* then either 
modify the operandCs)* or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 

XFY245I FDXPD REALX8 BASE=0.0, REALK8 EXPONENT=exp, LE ZERO 

Explanation: For an exponentiation operation (DX><P) in the 
subprogram IFYFDXPD (FDXPDtt), where D and P represent REAL^^S 
variables or READ^B constants* D is equal to zero and P is less 
than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action*. Result=o. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for an exponentiation operation are 
within the allowable range. If the base and exponent may or will 
fall outside that range during program execution* then either 
modify the operand(s)* or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 

ZFY246;[ FCXPC COMPLEXES 6ASE=0. 0-l-0. 01, EXPONENT=exp LE ZERO 

ZFY246Z FCXPX COMPLEXES BASE=0.04-0.0I, INTEGER EXPONENT=exPr 
LE ZERO 
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Explanation: For an exponentiation operation (Z)()(J) in the 
subprograms IFYFCXPI (FCXPIt) and IFYFCXPC <FCXPC»), where Z 
represents a C0NPLEX)(8 variable or COMPLEX^tS constant and J 
represents an integer variable or integer constants Z is equal 
to zero and J is less than or equal to zero. 

Supplemental Data Provided: Exponent specified. 

Standard corrective Action: 

If BASE=0,EXP<0,RESULT=»; 
If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Make sure that both the complex variable 
or constant base and the integer variable or constant exponent 
for an exponentiation operation are within the allowable range. 
If the base and exponent may or will fall outside that range 
during program execution^ then either modify the operand(s)* or 
insert source code to test for the situation and make the 
appropriate compensation. Bypass the exponentiation operation if 
necessarj,'. 

ZFY247Z FCDXI C0NPLEXX16 BASE=0.0+O.OZ» INTEGER EXPONENT=exp» 
LE ZERO 

XFY247X FCDCD CONPLEXXlS BASE=O.OtO.OZ» EXPONENT=exp» LE ZERO 

Explanation: For an exponentiation operation iZ^^J") in the 
subprograms IFYFCDXI ( FCDXI #) and IFYFCDCD (FCDCD#), where Z 
represents a C0MPLEX)(16 variable or C0MPLEX)(16 constant and J 
represents an integer variable or integer constant > Z is equal 
to zero and J is less than or equal to zero. 

supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 



V^' 



If BASE=0,EXP<0,RESULT=*; 
If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Hake sure that both the complex variable 
or constant base and the integer variable or constant exponent 
for an exponentiation operation are within the allowable range. 
If the base and exponent may or will fall outside that range 
during program execution* then either modify the operand(s)» or 
insert source code to test for the situation and make the 
appropriate compensation. Bypass the exponentiation operation if 
necessary. 

IFY248I FQXPZft REALX16 BASE=0.0, ZNTEGER EXPONENT=exp, LE 
ZERO 

Explanation: For an exponentiation operation (QKXJ) in the 
subprogram IFYFQXPI (FQXPI#), where Q represents a REAL)(16 
variable or constant and J represents an integer variable or 
constant* Q is equal to zero and J is less than or equal to 
zero. 

Supplemental Data Provided: Exponent specified. 

Standard Corrective Action: 

If BASE=0,EXP<0>RESULT=»; 
If BASE=0.0,EXP=0,RESULT=1 

Programmer Response: Make sure that both the real variable or 

constant base and the integer variable or constant exponent for 

an exponentiation operation arm within the allowable range. If ^-^ 

the base and exponent may or will fall outside that range during (I 

execution* then either modify the operand(s)» or insert source ^^S 

code to test for the situation and make the appropriate / 
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compensation. Bypass the exponentiation operation if necessary. 

ZFY249I FQXPQ« REALM 16 BASE=base,REALXl6 EXP=exp» BASE=0.0» 
AND EXP LE ZERO OR BASE LT ZERO AND EXP NE ZERO 

Explanation: For an exponentiation operation (X^^KY) in the 
subprogram IFYFQXPQ(FQXPQ») , where X and Y represent REAL)(16 
variables or constants^ if X equals zero* Y must be greater than 
zero; if X is less than zero* Y must equal zero. One of these 
conditions is violated. 

Supplemental Data Provided: Base and exponent specified. 

Standard Corrective Action: 

If BASE=0 and EXP<0 ,RESULT=»; 

If BASE=0.0 and EXP=0,RESULT=1; 

If BASE=<0,0 and EXP#0,RESliLT=|X|KXY. 

Programmer Response: Make sure that both the real variable or 
constant base and exponent for an exponentiation operation are 
Mithin the alloMable range. If the base and exponent may or Mill 
fall outside that range during program execution* then either 
modify the operandCs)* or insert source code to test for the 
situation and make appropriate compensation. Bypass the 
exponentiation operation if necessary. 

ZFY250X FQXPQft REALX16 BASE=base> REALX16 EXP=exp> ARGUNENT 
COMBINATION EXP.XL0G2 (BASE) GE 252 

Explanation: For an exponentiation operation in the subprogram 
IFYFQXPQ* the argument combination of y^^logZCx) generates a 
number greater than or equal to 252. 

Supplemental Data Provided: The arguments specified. 

Standard corrective Action: Result=«. 

Programmer Response: Make sure that the base and exponent are 
Mithin the alloMable range. If necessary* restructure arithmetic 
operations. 

IFY251I SQRT ARGUNENT=arg LT ZERO 

Explanation: In the subprogram IFYSSQRT (SQRT)* the argument is 
less than 0. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result^ixP'^^. 

Programmer Response: flake sure that the argument is Mithin 
alloMable range. Either modify the argument* or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function reference if necessary. 

IFY252I EXP ARG=arg, GT 174.673 

Explanation: In the subprogram IFYSEXP(EXP)* the argument is 
greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=*. 

Programmer Response: Make sure that the argument to the 
exponentiation function is within alloMable range. If the 
argument may or Mill exceed that range during program execution* 
then provide code to test for the situation and* If necessary/ 
modify the argument or bypass the source referencing the 
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function subprogram. 

IFy253I ALOG-ALO610 ARG=arg, LE ZERO (Q 

Explanation: In the subprogram IFYSLOG (ALOG and ALOGIO), the 
argument is less than or equal to zero. Because this subprogram 
is called by an exponential subprogram^ this message may also 
indicate that an attempt has been made to raise a negative base 
to a real pouier. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: 

If X=0, RESULT=-»; 
If X<0, RESULT=log|X| or log |X|. 

10 

Programmer Response: Make sure that the argument to the 
logarithmic function is within the allowable range. If the 
argument may or will be outside that range during program 
execution/ then provide code to test for the situation and* if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 

IFY254I SIN-COS ABS(ARG)=arg GE PIX(2XX18) 

Explanation: In the subprogram IFYSSCN (SIN and COS), the 
absolute value of an argument is greater than or equal to 2*' X 
pi (2*« X pi=.8235'»966406249996D + 06). 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=SQRT(2)/2. 

Programmer Response: Make sure that the argument (in radians '^^^^y 

where 1 radian is equivalent to 57.2957795131®) to the i 

trigonometric sine or cosine function is within the allowable 

range. If the argument may or will exceed that range during 

program execution* then provide code to test for the situation 

and, if necessary, modify the argument or bypass the source 

referencing the function subprogram. 

IFY255Z ATAN2 AR6UnENTS=0.0 

Explanation: In the subprogram IFYSATN2, when entry name ATAN2 
is used, both arguments are equal to zero. 

Supplemental Data Provided: None. 

standard corrective Action: Result=o. 

Programmer Response: Make sure that both arguments do not 
become during program execution, or are not inadvertently 
initialized or modified to 0. Provide code to test for the 
situation and, if necessary, modify the arguments or bypass the 
source referencing the function subprogram. 

IFY256Z SINH-COSH/ARG/=/arg/> GE 175.366 

Explanation: In the subprogram IFYSSCNH (SINH or COSH), the 
argument is greater than or equal to 175.366. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: SINH(X)=±»; COSH(X)=« 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is within the allowable 
range. If the argument may or will exceed that range during 
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program «xocution> then provide code to test for the situation 
and» if necessary* modify the argument or bypass the source 
referencing the function subprogram. 

IFY257I AR8IN-ARC0S /AR6/=/arg/ GT 1 

Explanation: in the' subprogram IFYSASCN (ARSIN or ARCOS)» the 
absolute value of the argument is greater than 1. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If x>1.0,ARCOS(x)=0j 
If <-1.0,ARC0S(x)=pi; 
If x>1.0,ARSIN=pi/2; 
If x<-1.0,ARSIN=-pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is betMeen -1 and *lr inclusive. If the 
argument may or Mill fall outside that range during program 
execution* then provide code to test for the situation and> if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 

XFY258Z TAN-COT AN /ARG/=/arg(HEX=hex)/> GE PIXZxxlS 

Explanation: In the subprogram IFYSTNCT (TAN or COTAN)* the 
absolute value of the argument is greater than or equal to 
2*»)«pi (2^«J<pi = .82354966406249996D+06). 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=l. 

Programmer Response: Make sure that the argument (in radians 
Mhere 1 radian is equivalent to 57.2957795131**) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will exceed that range 
during program execution* then provide code to test for the 
situation and* if necessary* modify the argument or bypass the 
source referencing the function subprogram. 

ZFY259I TAN-COT AN /ARG/=/arg(HEX=hex)/, APPROACHES 
SINGULARITY 

Explanation: In the subprogram IFYSTNCT (TAN or COTAN)* the 
argument value is too close to one of the singularities (±pi/2* 
±3pi/2* ... for the tangent op ±pi * ±2pi * ... for the 
cotangent) . 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=*. 

Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131^) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will approach the 
corresponding singularities for the function during program 
execution* then provide code to test for the situation and* if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 

IFY260I FQXP2« REALX16 EXPONENT=exp» GE 252 

Explanation: In the subprogram IFYFQXPR(FQXP2»)* the exponent 
is beyond the range of 2***. 



Library Interruption and Error Procedures and Messages 117 



supplemental Data Provided: Exponent specified. 

standard Corrective Action: Result^:*. 

Programmer Response: Make sure that the exponent is within the \J 
alloMable rafige. 

ZFY261Z DSQRT ARGUNENT=arg LT ZERO 

Explanation: In the subprogram IFYLSQRT(DSQRT)» the argument is 
less than 0. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result^^lxi^^^. 

Programmer Response: Make sure that the argument is within the 
allowable range. Either modify the argument* or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function rsfsrsncs if neeessary. 

ZFY262Z DEXP AR6=arg* GT 174.673 

Explanation: In the subprogram IFYLEXP(DEXP)> the argument is 
greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result^*. 

Programmer Response: Make sure that the argument to the 

exponential function is within allowable range. If the argument 

may or will exceed that range during program execution* then 

provide code to test for the situation and* if necessary* modify 

the argument or bypass the source referencing the function ^. 

subprogram. 

ZFY263Z DLOG-DLOGIO ARG=arg> LE ZERO 

Explanation: In the subprogram IFYLLOG (DLOG and DLOGIO)* the 
argument is less than or equal to zero. Because the subprogram 
is called by an exponential subprogram* this message may also 
indicate that an attempt has been made to raise a negative base 
to a real power. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X=0*RESULT=-»; 
If X<0,RESULT=log|X| or log |X|. 

10 

Programmer Response: Make sure that the argument to the 

logarithmic function is within the allowable range. If the 

argument may or will be outside that range during program 

execution* then provide code to test for the situation and* if 

necessary* modify the argument or bypass the source referencing 

the function subprogram. * 

IFY2S4Z DSZN-DCOS /ARG/=/arg(HEX=hex)/> GE PZ2XK50 

Explanation: In the subprogram IFYLSCN (DSIN and DCOS)* the 
absolute value of the argument is greater than or equal to 
250 Kpi (2* ojcpi = .353711887378022390+16). 

Supplemental Data Provided: Argument specified. ^^ 

Standard Corrective Action: Result=SQRT(2)/2. % >f 
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Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131®) to the 
trigonometric sine or cosine function is Mi thin the allcMable 
range. If the argument may or Mill exceed that range during 
program execution^ then provide code to test for the situation 
and» if necessary » modify the argument or bypass the source 
referencing the function subprogram. 

XFY265Z DATAN2 ARGUMENTS=0.0 

Explanation: In subprogram IFYLATN2> Mhen entry name DATAN2 is 
usedt both arguments are equal to zero. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action-* Result=o. 

Programmer Response: Make sure that both arguments do not 
become zero during program execution^ or are not inadvertently 
initialized or modified to zero. Provide code to test for the 
situation and» if necessary » modify the arguments or bypass the 
source referencing the function subprogram. 

XFY266X DSINH-DCOSH /ARG/=arg/> GE 175.366 

Explanation: In the subprogram IFYSCNH CDSINH or DCOSH)> the 
absolute value of the argument is greater than or equal to 
175.366. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: dsinhcX)=±»; DC0SH(X)=» 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is Mithin the alloMable 
range. If the argument may or Mill exceed that range during 
program execution^ then provide code to test for the situation 
and> if necessary » modify the argument or bypass the source 
referencing the function subprogram. 

ZFY267Z DARSXN-DARCOS /ARG/=/arg/ GT 1 

Explanation: In the subprogram IFYLASCN (DARSIN or DARCOS), the 
absolute value of the argument is greater than 1. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X > 1.0 DARCOS(x) = 0; 

If X < -1.0 DARCOS(X) = pi? 

If X > 1.0 DARSIN = pi/2; 

If X < -1.0 DARSIN = -pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is between -1 and -t-l^ inclusive. If the 
argument may or Mill fall outside that range during execution* 
then provide code to test for the situation and* if necessary* 
modify the argument or bypass the source referencing the 
function subprogram. 

IFY268X DTAN-DCOTAN /ARG/=/arg(HEX=hex)/> GE PZX2XX50 

Explanation: In the subprogram IFYLTNCT (DTAN or DCOTAN), the 
absolute value of the argument is greater than or equal to 
2S0xpi (2*«Xpi=.35371188760142201D+16). 

Supplemental Data Provided: Argument specified. 
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standard Corrective Action: Result=l. 

Programmer Response: Make sure that the argument (in radians 

where 1 radian is equivalent to 57.2957795131**) to the /i~\ 

trigonometric tangent or cotangent function is within the \J^ 

allowable range. If the argument may or will exceed that range 

during program execution^ then provide code to test for the 

situation and, if necessary, modify the argument or bypass the 

source referencing the function subprogram. 

IFY269I DTAN-DCOTAN /ARG/=/arg(HEX=hex)/, APPROACHES 
SINGULARITY 

Explanation: In the subprogram IFYLTNCT (DTAN or DCOTAN), the 
argument value is too close to one of the singularities (±pi/2, 
±3pi/2, ... for the tangent; ±pi , ±2pi , ... for the cotangent). 

Supplemental Data Provided*- Argument specified. 

Standard Corrective Action^ Rssult=*. 

Programwer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131**) to the 
trigonometric tangent or cotangent function is within the 
allowable range- If the argument may or will approach the 
corresponding singularities for the function during program 
execution, then provide code to test for the situation and, if 
necessary, modify the argument or bypass the source referencing 
the function subprogram. 

IFY270I FCQXI C0NPLEXX32 BASE=0.0-i-O.OI, INTEGER EXPONENT=exp, 
LE ZERO 

IFY270I FCQCG C0MPLEXX32 BASE=0.0)(O.OI, EXPONENT=exp, LE ZERO 

Explanation: In the subprograms IFYFCQXI (FCOXIft) and IFYFCQCG 
(FCQCG#), a base number has been raised to a power less than 
or equal to zero. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: 

If X=0 + Oi and J = 0, RESULT = H-Oi; 
If X=0+Oi and J<0, RESULT=»+Oi. 

(where J=exponent) 

Programmer Response: Make sure the base is a non-zero number or 
raise the exponent to a non-zero value. 

1FY271I CEXP REAL ARG=arg(HEX=hex), GT 174.673 

Explanation: In the subprogram IFYCSEXP (CEXP), the value of 
the real part of the argument is greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=*(COS X * iSIN X) where X is 
the imaginary portion of the argument. 

Programmer Response: Make sure that the argument to the 
exponential function is within the allowable range. If the 
argument may or will exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 
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XFY272Z CEXP ZI1AG ARG=arg(HEX=hex)» ABS VALUE GE PZX2XX18 

Explanation: in tho subprogram IFYCSEXP (CEXP)» the absolute 
value of the imaginary part of the argument is greater than or 
equal to 2»«Xpi (2i«Xpi = .82354966<»06249996D+06) . 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result=e^^-i-0)(i . 

Programmer Response: Make sure that the argument to the 
exponential function is mi thin the alloviable range. If the 
argument may or Mill exceed that range during program execution^ 
then provide code to test for the situation* and* if necessary* 
modify the argument or bypass the source referencing the 
function subprogram. 

XFY273I CLOG ARGUMENT =0.0 4-0. OZ 

Explanation: In the subprogram IFYCSLOG (CLOG)* the real and 
imaginary parts of the argument are equal to zero. 

Supplemental Data Provided: None. 

Standard Corrective Action: Re5ult=-*-t-0i . 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution* or are not inadvertently initialized or modified to 
zero. Provide code to test for the situation and* if necessary* 
modify the argument or bypass the source referencing the 
function subprogram. 

ZFY274Z CSZN-CCOS /REAL ARG/=/arg(HEX=hex)/> GE PZK2X)(18 

Explanation: In the subprogram IFYCSSCN (CSIN or CCOS)* the 
absolute value of the real part of the argument is greater than 
or equal to 2i«Xpi (2i«)«pi =.823549664062<»9996D+06) . 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

Result=COSH(x )+OHi ; CSIN=0+SINH(x )Ki . 
2 2 

Programmer Response: Make sure that the real part of the 
argument (in radians Mhere 1 radian is equivalent to 
57.2957795131®) to the trigonometric sine or cosine function is 
Mi thin the alloMable range. If the real part of the argument may 
or Mill exceed the range during program execution* then provide 
code to test for the situation and* if necessary* modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 

ZFY275Z CSZN-CCOS /ZMAG ARG=/arg(HEX=hex)/, GT 17^.673 

Explanation: In the subprogram IFYCSSCN (CSIH or CCOS)* the 
absolute value of the imaginary part of the argument is greater 
than 17<^.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If imaginary part > 0* (X is real 
portion of argument): 

For sine* result=*/2(SIN X + iCOS X). 
For cosine* result=»/2(C0S X - iSIN X). 

If imaginary part < 0* (X is real portion of argument)! 
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Fop sine, result=«/2CSIN X - iCOS X). 
For cosina, rQsult=*/2(C0S X * iSIN X). 

Programmer Rcsponsts Nako sura that the imaginary part of tha 
argument (in radians wharo 1 radian is equivalent to 
57.2957795131^) to the trigonometric sine or cosine function is 
Mi thin the alloMable range. If the imaginary part of the 
argument may or Mill exceed that range during program execution, 
then provide code to test for the situation and* if necessary, 
modify the imaginary part of the argument or bypass the source 
referencing the function subprogram. 

ZFY276Z CQEXP REAL ARG^arg* GT 174.673 

Explanation: In the subprogram IFYCQEXP (CQEXP), the value of 
the real part of the argument is greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result ~«(COS X ^ ISIN X) Mhere X is 
the imaginary portion of the argument. 

Programmer Response: Make sure that the real part of the 
argument to the exponential function is Mi thin the alloMable 
range. If the real part of the argument may or Mill exceed the 
range during program execution, then provide code to test for 
the situation, and, if necessary, modify the real part of the 
argument or bypass the source referencing the function 
subprogram. 

ZFY277I CQEXP IMAG ARG=arg» ABS VALUE GT PZX2XX100 

Explanation: In the subprogram IFYCQEXP (CQEXP), the absolute 
value of the imaginary part of the argument is greater than 
2iooKpi (2»00Kpj=.39824418129956973D + 31) 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result^e ^^-i-o^ci. 

Programmer Response: Make sure that the imaginary part of the 
argument to the exponential function is Mi thin the alloMable 
range. If the imaginary part of the argument may or Mill exceed 
that range during program execution, then provide code to test 
for the situation and, if necessary, modify the imaginary part 
of the argument or bypass the source referencing the function 
subprogram. 

ZFY278Z CQLOG ARGUMENT = 0.0+0. OZ 

Explanation: In the subprogram IFYCQLOG (CQLOG), the real and 
imaginary parts of the argument arm equal to zero. 

supplemental Data Provided: None. 

Standard Corrective Action: Result^-^-^-Oi . 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution, or are not inadvertently initialized or modified to 
zero. Provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 

ZFY279Z CQSZN-CQCOS /REAL ARG/=/arg/» GE 2)(»100 

Explanation: In the subprogram IFYCQSCN (CQSIN or CQCOS), the 
absolute value of the real part of the argument is greater than 
or equal to 2*®®. 
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Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If the argument is X + iY, for 
CQSIN, result=0 + DSINH (Y)xi and, for CQCOS, result = DCOSH 
(Y)+OKi. 

Programmer Response: Make sure that the real part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
within the allowable range. If the part of the argument may or 
will exceed the range during program execution, then provide 
code to test for the situation and, if necessary, modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 

IFY280I CQSZN-CQCOS /ZMAG ARG/=/arg/> GT 174.673 

Explanation: In the subprogram IFYCQSCNCCQSIN or CQCOS), the 
absolute value of the imaginary part of the argument is greater 
than 17<t.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If imaginary part > 0, (X is real 
portion of argument) i 

For sine, result=»/2(SIN X + iCOS X). 
For cosine, result=»/2(C0S X - iSIN X). 

If imaginary part <0, (X is real portion of argument)! 

For sine, re5ult=»/2(SIN X - i COS X). 
For cosine, result=»/2(C0S X + iSIN X). 

Programmer Response: Nake sure that the imaginary part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131°) to the trigonometric sine or cosine function is 
within the allowable range. If the imaginary part of the 
argument may or will exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the imaginary part of the argument or bypass the source 
referencing the function subprogram. 

XFY281Z CDEXP REAL ARG=arg(HEX=hex)» GT 174.673 

Explanation: In the subprogram IFYCLEXP (CDEXP), the value of 
the real part of the argument is greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=*(COS X * iSIN X) where X is 
the imaginary portion of the argument. 

Programmer Response: Make sure that the real part of the 
argument to the exponential function is within the allowable 
range. If the real part of the argument may or will exceed that 
range during program execution, then provide code to test for 
the situation and, if necessary, modify the real part of the 
argument or bypass the source referencing the function 
subprogram. 

ZFY282Z CDEXP ZMAG ARG::arg(HEX=hex)>ABS VALUE GE PZM2KX50 

Explanation: In the subprogram IFYCLEXP (CDEXP), the absolute 
value of the imaginary part of the argument is greater than or 
equal to 2*0Kpi (2S0Kpi =.35371188760142201D+16) . 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: Result=e ^-i-oxi. 
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Programmer Response: Make sure that the imaginary part of the 
argument to the exponential function is Mi thin the alloMable 
range. If the imaginary part of the argument may or will exceed 
that range during program execution* then provide code to test 
for the situation* and» if necessary* modify the imaginary part 
of the argument or bypass the source referencing the function 
subprogram. 

ZFY283Z CDLOG ARGUMENT=O.DO+O.DOZ 

Explanation: In the subprogram IFYCLLOG (CDLOG)* the real and 
imaginary parts of the argument arG equal to zero. 

supplemental Data Provided: None. 

Standard Corrective Action: Result=-»+Oi . 

Programmer Response: Make sure that both the real and imaginary 
parts of the argument do not become zero during program 
execution^ or are not inadvertently initialized or modified to 
zero. Provide code to test for the situation and* if necessary* 
modify the argument or bypass the source referencing the 
function subprogram. 

IFY284I CDSIN-CDCOS /REAL ARG/ =/arg(HEX=hex)/» GE Plx2xx50 

Explanation: In the subprogram IFYCLSCN (CDSIN or CDCOS), the 
absolute value of the real part of the argument is greater than 
or equal to 2*<>Xpi (2S«Xpi = .35371188760142201D+16) . 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: If the argument is X + iY* for 
CDSIN, the result=0 + DSINH (Y) +i; for CDCOS* the result=DCOSH 
(Y)+OXi . 

Programmer Response: Make sure that the real part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131**) to the trigonometric sine or cosine function is 
within the allowable range. If the part of the argument may or 
will exceed the range during program execution* then provide 
code to test for the situation* and, if necessary* modify the 
real part of the argument or bypass the source referencing the 
function subprogram. 

ZFY285Z CDSZN-CDCOS /ZMAG ARG/=/arg(HEX=hex)/, GT 174.673 

Explanation: In the subprogram IFYCLSCN (CDSIN or CDCOS)* the 
absolute value of the imaginary part of the argument is greater 
than 174.673. 

Supplemental Data Provided: Argument specified. 

standard Corrective Action: If imaginary part >0* (X is real 
portion of argument)* 

For sine* result=«/2(SIN X + iCOS X). 
For cosine* result=»/2(C0S X - iSIN X). 

If imaginary part <0* (X is real portion of argument)* 

For sine, result=»/2(SIN X - iCOS X). 
For cosine, result=*/2(C0S X + iSIN X). 

Programmer Response: Make sure that the imaginary part of the 
argument (in radians where 1 radian is equivalent to 
57.2957795131®) to the trigonometric sine or cosine function is 
within the allowable range. If the imaginary part of the 
argument may or will exceed that range during program execution, 
then provide code to test for the situation and, if necessary, 
modify the imaginary part of the argument or bypass the source 
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roforencing tho function subprogram. 

XFY286I VSZOS - ATTEMPT TO ISSUE SYNCHRONOUS AND ASYNHRONOUS 
X/0 REQUESTS UXTHOUT AN INTERVENING REMIND. FILE 
f 1 lename 

Explanation: A data- set that has been using one mode of I/O 
operations (that is» either synchronous or asynchronous) must be 
rewound before changing modes. An attempt Mas made to change the 
mode without rewinding the data set. 

Supplemental Data Provided: Filename. 

Standard Corrective Action: The I/O request is ignored and 
execution continues. 

Programmer Response: Insert a REMIND statement at an 
appropriate point in the program. 

ZFY287I VASYN - A UAIT ISSUED MITH NO OUTSTANDING I/O 

REQUEST* FILE filename 

Explanation: A MAIT statement was issued with no corresponding 
READ or MRITE request. 

Supplemental Data Provided: Filename. 

Standard corrective Action: The MAIT statement is ignored and 
execution continues. 

Programmer Response: Remove the MAIT statement or include a 
corresponding READ or MRITE statement. 

IFY288I VASYN - NO UAIT ISSUED FOR AN OUTSTANDING I/O REQUEST 
FILE filename 

Explanation: No MAIT statement was issued for an outstanding 
READ or MRITE request. 

Supplemental Data Provided: Filename. 

standard Corrective Action: Execution continues with an implied 
MAIT. 

Programmer Response: Include the MAIT statement or remove the 
READ or MRITE statement. 

IFY289I QSQRT ARGUMENTsarg LT ZERO 

Explanation: In the subprogram IFYQSQRT (QSQRT*) » the argument 
is less than zero. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result - IxP^^ 

Programmer Response: Make sure that the argument is within the 
allowable range. Either modify the argument » or insert source 
code to test for a negative argument and make the necessary 
compensation. Bypass the function reference if necessary. 

IFY290I GAMMA AR6=arg(HEX=hex)»LE 2XX-252 OR 6E 57.5744 

Explanation: In the subprogram IFYSGAMA ( GAMMA )» the value of 
the argument is outside the valid range (2-*'*<x<57.5744) . 

Supplemental Bata Provided: Argument specified. 
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standard corractivs Action: Rosult=«. 

Programmer Responsa: nak« sure that the argument to the gamma 

function is within the allowable range. If the argument may or <^> 

Mill be outside that range during program execution, then \^y '. 

provide code to test for the situation and, if necessary, modify 

the argument or bypass the source referencing the function 

subprogram. 

ZFY291Z ALGANA ARG=arg(HEX=hax)»LE ZERO. OR GE 4.2937xlOXX73 

Explanation: In the subprogram IFYSGAMA (ALGAMA), the value of 
the argument is outside the valid range (0<x<^. 2937x10^') . 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result=*. 

Programmer Response: Make sure that the argument to the ALGANA 
function is within the allowable range. If the argument may or 
will be outside that range during program execution, then 
provide code to test for the situation and, if necessary, modify 
the argument or bypass the source referencing the function 
subprogram. 

XFY292I QEXP ARG=arg> GT 174.673 

Explanation: In the subprogram IFYFQXPR (QEXP), the argument is 
greater than 174.673. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: Result^*. 

Programmer Response: Make sure that the argument to the ^.^ 

exponential function is within the allowable range. If the ^^ 

argument may or will exceed that range during program execution, \^% 
then provide code to test for the situation and, if necessary, 
modify the argument or bypass the source referencing the 
function subprogram. 

IFY293Z QLO6-QLOG10 ARG=arg> LE ZERO 

Explanation: In the subprogram IFYQLOG (QLOG and QLOGIO), the 
argument is less than or equal to zero. Because the subprogram 
is called by an exponential subprogram, this message may also 
indicate that an attempt has been made to raise a negative base 
to a real power. 

Supplemental Data Provided: Argument specified. 

Standard corrective Action: If x=0, result=-«; if X<0, 

result = log|X| or log |Xi . 

10 

Programmer Response: Make sure that the argument to the 

logarithmic function is within the allowable range. If the 

argument may or will be outside that range during program 

execution, then provide code to test for the situation and, if ^ 

necessary, modify the argument or bypass the source referencing 

the function subprogram. 

ZFY294Z QSZN-QCOS /ARG/=/arg/» GE 2XX100 

Explanation: In the subprogram IFYQSCN (QSIN and QCOS), the 
absolute value of the argument is greater than or equal to 2^®^. 

Supplemental Data Provided: Argument specified. ff ^ 
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standard corrective Action: Result=SQRT(2)/2 

Programmer Response: Make sur« that the argument (in radians 
Mhere 1 radian is equivalent to 57.2957795131**) to the 
trigonometric sine or cosine function is within the allouiable 
range. If the argument may or will exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary » modify the argument or bypass the source 
referencing the function subprogram. 

XFY295Z QATAN2 ARGUMENTS =0.0 

Explanation: In subprogram IFYQATN2* when entry name QATAN2 is 
used* both arguments are equal to zero. 

Supplemental Data Provided: None. 

Standard Corrective Action: Result=0. 

Programmer Response: Make sure that both arguments do not 
become zero during program execution* or are not inadvertently 
initialized or modified to zero. Provide code to test for the 
situation and* if necessary* modify the arguments or bypass the 
source referencing the function subprogram. 

XFY296X QSXNH-QCOSH /ARG/=/arg/f GE 175.366 

Explanation: In the subprogram IFYQSCNH (QSINH or QCOSH)* the 
absolute value of the argument is greater than (or equal to) 
175.366. 

Supplemental Data Provided: Argument specified. 

Standard Corrective Action: QSINH(X):±«; QCOSH(X)=«. 

Programmer Response: Make sure that the argument to the 
hyperbolic sine or cosine function is within the allouiable 
range. If the argument may or Mill exceed that range during 
program execution* then provide code to test for the situation 
and* if necessary* modify the argument or bypass the source 
referencing the function subprogram. 

XFY297X QARSXN-QARCOS /ARG/=/arg/, GT 1 

Explanation: In the subprogram IFYQASCN (QARSIN or QARCOS)* the 
absolute value of the argument is greater than 1. 

supplemental Data Provided: Argument specified. 

Standard Corrective Action: 

If X > 1.0 QARCOS(X) = 0; 

If X < -1.0 QARCOSCX) = pi; 

If X > 1.0 QARSIN = pi/2; 

If X < -1.0 DARSIN = -pi/2. 

Programmer Response: Make sure that the argument to the arcsine 
or arccosine function is between -1 and -f-l* inclusive. If the 
argument may or will fall outside that range during program 
execution* then provide code to test for the situation and* if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 

XFY298X QTAN-QCOTAN /ARG/s/«rg/> GE 2XX100 

Explanation: In the subprogram IFYQTNCT (QTAN or QCOTAN)* the 
absolute value of the argument is greater than or equal to 2^^^. 

Supplemental Data Provided: Argument specified. 
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standard Corrective Action: Result=l. 

Programmer Response? Make sure that the argument (in radians 
where 1 radian is equivalent to 57 .2957795131<> ) to the 
trigonometric tangent or cotangent function is within the 
allowable range. If the argument may or will exceed that range 
during program execution* then provide code to test for the 
situation and» if necessary* modify the argument or bypass the 
source referencing the function subprogram. 

IFY299I QTAN-QCOTAN /ARG/=/arg/, APPROACHES SINGULARITY 

Explanation: In the subprogram IFYQTNCT (QTAN or QCOTAN), the 
argument value is too close to one of the singularities (±pi/2» 
±3pi/2»... for the tangent; ±pi , ±2pi , . . . for the cotangent). 

Supplemental Data Provided: Argument specified. 

standard Corrective Action: Result=». 



Programmer Response: Make sure that the argument (in radians 
where 1 radian is equivalent to 57.2957795131°) to the 
trigonometric tangent or cotengent function is within the 
allowable range. If the argument may or will approach the 
corresponding singularities for the function during program 
execution* then provide code to test for the situation and* if 
necessary* modify the argument or bypass the source referencing 
the function subprogram. 

IFY300I DGAMMA ARG=arg(HEX=hex),LE 2XX-25E OR GE 57.574<f 

Explanation: In the subprogram IFYLGAMA (DGAMMA)* the value of 
the argument is outside the valid range (2-^*^<x<57 .5744) . 

supplemental Data Provided: Argument specified. 

standard corrective Action: Result=*. 

Programmer Response: Make sure that the argument to the DGAMMA 
function is within the allowable range. If the argument may or 
will be outside the range during program execution* then provide 
code to test for the situation and* if necessary* modify the 
argument or bypass the source referencing the function 
subprogram. 

IFY301I DLGAMA ARG=arg(HEX=hex), LE ZERO. OR GE 4.2937x10^x73 

Explanation: In the subprogram IFYLGAMA (DLGAMA), the value of 
the argument is outside the valid range (0<x<4 . 2937x10' '^) . 

Supplemental Data Provided: Argument specified. 

standard corrective Action: Result=». 

Programmer Response: Make sure that the argument to the DLGAMA 
function is within the allowable range. If the argument may or 
will be outside that range during program execution* then 
provide code to test for the situation and* if necessary* modify 
the argument or bypass the source referencing the function 
subprogram. 

IFY900I EXECUTION TERMINATING DUE TO ERROR COUNT FOR ERROR 
NUMBER nnnn 

Explanation: This error has occurred frequently enough to reach 
the count specified as the number at which execution should be 
termi nated. 

supplemental Data Provided: Error number. 
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Standard Correctlva Action: No corrective action is 
implemented. 

System Action: The job step is terminated Mith a completion 
code of 16. 

Programmer Response: Make sure that occurrences of the error 
number indicated are eliminated. 

ZFY901X EXECUTION TERMZNATZNG DUE TO SECONDARY ENTRY TO ERROR 
HONITOR FOR ERROR NUMBER nnnn UHZLE PROCESSING ERROR 
NUMBER nnnn 

Explanation: In a user's corrective action routine^ an error 
has occurred that has called the error monitor before it has 
returned from processing a previously diagnosed error. 

supplemental Data Provided: Error numbers. 

Standard Corrective Action: No corrective action is attempted. 

System Action: The job step is terminated Mith a completion 
code of 16. 

Note: If a traceback follows this message* it may be unreliable. 

Programmer Response: Make sure that the error monitor is not 
called prior to processing the diagnosed error. 

Example: a statement such as R=A)()(B (Mhere A and B &re REAL)(4) 
cannot be used in the exit routine for error 252, because FRXPR# 
uses EXP, Mhich detects error 252. 

Refer to VS FORTRAN Application Programming Language Reference 
for information on the error handling subroutines. 

ZFY902Z ERROR NUMBER nnnn OUT OF RANGE OF ERROR TABLE 

Explanation: A request has been made to reference a 
non-existent Option Table entry. 

Supplemental Data Provided: Error number. 

System Action: The request is ignored and execution continues. 
IRETCD is set to 0. 

Programmer Response: Make sure that the value assigned to an 
error condition is within the range of entries in the option 
table. 

ZFY903Z VNOPT - ATTEMPT TO CHANGE UNMODZFZABLE TABLE ENTRY. 
MESSAGE NUMBER=nnnn 

Explanation: The Option Table specifies that no changes may be 
made in this entry, but a change request has been made by use of 
CALL ERRSET or CALL ERRSTR. 

Refer to VS FORTRAN Application Programming Language Reference 
for information on the error handling subroutines. 

supplemental Data Provided: Message number. 

System Action: The request is ignored and execution continues. 

Programmer Response: Make sure that no attempt has been made to 
alter dynamically an unmodifiable entry in the Option Table. 
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ZFY904Z ATTEHPT TO DO Z/0 DURING FZXUP ROUTINE FOR AN I/O 
TYPE ERROR, FILE filename 

Explanation: Uhen attempting to correct an I/O errors the user 
may not issue a READ» URITE» BACKSPACEr ENDFILE» REMIND* CALL 
PDUNP, CALL DUMP* DEBUG* or CALL ERRTRA. 

Refer to VS FORTRAN Application Programming Language Reference 
for information on the error handling subroutines. 

Supplemental Data Provided: Filename. 

System Action: The job step is terminated with a completion 
code of 16. 

Programmer Response: Make sure that* if an I/O error is 
detected* the user exit routine does not attempt to execute any 
FORTRAN I/O statement. 
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OPERATOR MESSAGES 






Operator messages for PAUSE and STOP statements may be generated 
during load module execution as folloMs^ 

yy ZFYOOIA PAUSE X 

Explanation: A FORTRAN PAUSE statement has been executed. The 
yy i s an identification number assigned to the message by the 
operating system. The x can be^ 

• An unsigned 1- to 5-digit integer constant specified in the 
PAUSE statement. 

• A literal constant specified in the PAUSE statement. 

• A zero to indicate that the PAUSE statement contained no 
constant. 

System Action: The program enters the wait state. 

Operator Response: FoIIom the instructions given by the 
programmer when the program Mas submitted for execution; these 
instructions should indicate the action to be taken for any 
constant printed in the message text or for a PAUSE statement 
without a constant. 

To resume execution* reply to the outstanding console message 
after performing the operations requested. 

IFY002A STOP X 

Explanation: A FORTRAN STOP statement has been executed. The x 
can be an unsigned 1- to 5-digit nonzero integer constant 
specified in the STOP statement. 

System Action: The STOP statement caused the program to 
terminate. 

Operator Response: None. 
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APPENDIX D. MODULE NAMES 



Entry Name 


Module Name 


CHAR 


IFYCITFN 


ICHAR 
INDEX 


IFYCITFN 
IFYINDEX 


LEN 
LGE 
LGT 
LLE 
LLT 


IFYCITFN 
IFYLXCMP 
IFYLXCMP 
IFYLXCMP 
IFYLXCMP 



Figure 22. Character Subprogram Module Names 



OS 

IFYVCOMH 

IFYVSIOS 

IFYVDIOS 

IFYVIIOS 

IFYVVIOS 

IFYVCVTH 

IFYVCONI 

IFYVCONO 

IFYVTEN 

IFYVERRM 

IFYVERRE 

IFYVTRCH 



CMS 

IFYVCOMH 

IFYVSIOS 

IFYVDIOS 

IFYVIIOS 

IFYCVIOS 

IFYVCVTH 

IFYVCONI 

IFYVCONO 

IFYVTEN 

IFYVERRM 

IFYVERRE 

IFYVTRCH 



DOS 

IFYVCOMH 

IFYDSIOS 

IFYDDIOS 

IFYVIIOS 

IFYDVIOS 

IFYVCVTH 

IFYVCONI 

IFYVCONO 

IFYVTEN 

IFYVERRM 

IFYVERRE 

IFYVTRCH 



W j 



Figure 23. Reentrant Library Module Names 



1^ \ 
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Entry Name 


Module Name 


Entry Name 


Module Name 


ACOS 


IFYSASEN 


DSIN 


IFYLSIN 


AINT 


IFYFAINT 


DSINH 


IFYLSCNH 


ALGAMA 


IFYSGAMA 


DSQRT 


IFYLSQRT 


A LOG 


IFYSLGC 


DTAN 


IFYLTNCT 


ALOGIO 


IFYSLGC 


DTANH 


IFYLTANH 


AMAXO 


IFYFMAXI 






AMAXl 


IFYFMAXR 


EXP 


I FYS EXP 


AMINO 


IFYFMAXI 


ERF 


I FYS ERF 


AMINl 


IFYFMAXR 


ERFC 


IFYSERF 


AMOD 


IFYFMODR 






ARCOS 


IFYSASCN 


FCDXIt 


IFYFCDXI 


ARSIN 


IFYSASCN 


FCQXIt 


IFYFCQXI 


ASIN 


IFYSASCN 


FCXPI« 


IFYFCXPI 


ATAN 


IFYSATN2 


FDXPDft 


IFYFDXPD 


ATAN2 


IFYSATN2 


FDXPI* 


IFYFDXPI 






FIXPIt 


IFYFIXPI 


CABS 


IFYCSABS 


FQXPI# 


IFYFQXPI 


CCOS 


IFYCSSCN 


FQXPQ» 


IFYFQXPQ 


CDABS 


IFYCLABS 


FQXP2# 


IFYFQXPQ 


CDCOS 


IFYCLSCN 


FRXPIft 


IFYFRXPI 


CDDVD# 


IFYCLAD 


FRXPR# 


IFYFRXPR 


CDEXP 


IFYCLEXP 






CDLOG 


IFYCLLOG 


GAMMA 


IFYSGAMA 


CDMPY# 


IFYCLAM 






CDSIN 


IFYCLSCN 


IDINT 


IFYFIFIX 


CDSQRT 


IFYCLSQT 


IFIX 


IFYFIFIX 


CDVD# 


IFYCSAD 


INT 


IFYFIFIX 


CEXP 


IFYCSEXP 






CLOG 


IFYCSLOG 


L GAMMA 


IFYSGAMA 


CMPY» 


IFYCSAM 


LOG 


IFYSLGN 


COS 


IFYSCOS 


LOGIO 


IFYSLGN 


COSH 


IFYSSCNH 






COTAN 


IFYSTNCT 


MAXO 


IFYFMAXI 


CQABS 


IFYCQABS 


MAXI 


IFYFMAXR 


CQCOS 


IFYCQSCN 


MINO 


IFYFMAXI 


CQDVD# 


IFYCQRIT 


MINI 


IFYFMAXR 


CQEXP 


IFYCQEXP 


MOD 


IFYFMODI 


CQLOG 


IFYCQLOG 






CQMPY* 


IFYCQRIT 


QARCOS 


IFYQASCN 


CQSIN. 


IFYCQSCN 


QARSIN 


IFYQASCN 


CQSQRT 


IFYCQSQT 


QATAN 


IFYQATN2 


CSIN 


IFYCSSCN 


QATAN2 


IFYQATN2 


CSQRT 


IFYCSSQT 


QCOS 


IFYQSCN 






QCOSH 


IFYQSCNH 


DARCOS 


IFYLASCN 


QCOTAN 


IFYQTNCT 


DARSIN 


IFYLASCN 


QERF 


IFYQERF 


DATAN 


IFYLATN2 


QERFC 


IFYQERF 


DATAN2 


IFYLATN2 


QEXP 


IFYFQXPQ 


DCOS 


IFYLCOS 


QLOG 


IFYFQXPQ 


DCOSH 


IFYLSCNH 


QLOGIO 


IFYFQXPQ 


DCOTAN 


IFYLTNCT 


QSIN 


IFYQSCN 


DERF 


IFYLERF 


QSINH 


IFYQSCNH 


DERFC 


IFYLERF 


QSQRT 


IFYQSQRT 


DEXP 


IFYLEXP 


QTAN 


IFYQTNCT 


DGAMMA 


IFYLGAMA 


QTANH 


IFYQTANH 


DLGAMA 


IFYLGAMA 






DLOG 


IFYLLGN 


SIN 


IFYSSIN 


DLOGIO 


IFYLLGC 


SINH 


IFYSSCNH 


DMAXl 


IFYFMAXD 


SQRT 


IFYSSQRT 


DMINl 


IFYFMAXD 






DMOD 


IFYFMODR 


TAN 


IFYSTNCT 






TANH 


IFYSTANH 


Figure 24. 


Mathematical Subpi 


rogram Module 


Names 
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Appendix E: Sample Storage Printouts 



\J 



A sample printout is given below for each dump format that can be specified for the 
storage dump subprogram. The printouts are given in the following order: hex- 
adecimal, LOGICAL •!, LOGICAL M, INTEGER *2, INTEGER *4, REAL *4, REAL *8, COM- 
PLEX *8, COMPLEX *16, and literal (see Figure 25). Note that the headings on the print- 
outs are not generated by the system, but were obtained by using FORMAT statements. 
The number printed at the left of each output line is the storage location (in hexadecimal) 
of the first data item tabulated. 

The output of the storage dump subprogram (for entry names dump, cpdump, 
and PDUMP) is placed on the object error unit data set defined by the installation 
during system generation. 



CALL rOUNP MITH HEXADECIMAL FORMAT SPECIFIED 

OOAJEO HtSPSElO 00000000 HSSPSEIO 10000000 <t2100000 



006DCI 
006DFI 



•tZBOOOOO 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 
COOOOOOO 00000000 41200000 <»1S666S6 OOOOOOOC lillOOOOO 



CALL FDOMP WITH LOGICAL*! FORMAT SPECIFIED 
OOeElE T F 



CALL PDUMP MITti LOGICAL*)) FORMAT SPECIFIED 

ooseio F T 



CALL PDOMP 


WITH INTE6ER*2 FORMAT SPECIFIED 


006E1I 


10 


006E1A 


-lOO 


006E1C 


10 


CALL PDUMP 


WITH INTEGER** FORMAT SPECIFIED 


006E20 
OOSE^t 


1 2 
11 12 






CALL PDUMP WITH REAL** FORMAT SPECIFIED 
006E00 O.SOOOOOOOE 01 0.S3999996E 01 



CALL PDUMP WITH REAL*8 FORMAT SPECIFIED 
OOSDCt 0.17S9999999999)99O OS 



CALL PDUMP WITH COMPLEX*« FORMAT SPECIFIED 
006000 C5.0000000,<». 0000000) 



(<f. 0000000,8. 0000000) 



CALL PDUMP WITH C0MPLEX*16 FORMAT SPECIFIED 

006OE0 CO. 9999999999999990, 0.9999999999999990) 



<-0 . 9999999999999990, -0. 9999999999999990) 



CALL PDUMP WITH LITERAL FORMAT SPECIFIED 
006E5C TMIS ARRAY CONTAINS ALPHAMERIC DATA 



CALL CPDUMP 

008990 FILE READ ARGUMENT 



Figure 25. Sample Storage Printouts 
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ABS/IAB 34 

error message 116 
absolute value subprograms 34»19 
accuracy figures 72 
AINT subprogram 

size 86 
AL6AMA/GAMMA 

accuracy 73 

algorithm <f7-48 

effect of argument error 48 

error message 126 

size 86 
algorithms 31-71 
ALOG/AL0610 

accuracy 73 

algorithm 52-53 

effect of argument error 53 

error message 116 

size 86 
AMAXO/AMINO subprograms 

list of 11 
AMOD/DMOD subprogram 

list of 11 

arguments 21 
arcosine subprograms 35-37>16 
ARCOS/ARSIN subprogram 

accuracy 73 

algorithm 35 

effect of an argument 35 

error message 117 

size 86 
arcsine subprograms 35-37 » 16 
arctangent subprograms 38-41 > 16 
arguments 

assembler language 82 

explicitly called 12-22 

implicitly called 23-26 
ARSIN/ARCOS 

(see ARCOS/ARSIN) 
ASIN/ACOS 

algorithm 35 

(see ARSIN/ARCOS) 
assembler language 

calling sequence 79 

requirements 81 
ATAN 
accuracy 73 
algorithm 38 

effect of an argument error 38 
size 86 
ATAN/ATAN2 subprogram 

accuracy 73 

algorithm 38-39 

effect of an argument error 39 

error message 116 

size 86 



s 






CABS subprogram 
accuracy 73 
algorithm 34 
effect of argument error 34 



size 86 
calling VS FORTRAN subprograms 

explicitly 12>34 

implicitly 23 

in assembler language 81 
calling sequence 

in assembler language 79 
CALL macro instruction 79 
CCOS/CSIN subprogram 

accuracy 73 

algorithm 58 

effect of an argument error 58 

error message 121-122 

size 86 
CDABS subprogram 

accuracy 73 

algorithm 34 

size 86 
CDCOS/CDSIN subprogram 

accuracy 73 

algorithm 58 

effect of an argument error 59 

error message 124-125 

size 86 
CDDVD»/CDMPY# subprogram 

algorithm 66 

size 86 
CDEXP subprogram 

accuracy 73 

algorithm 46 

effect of an argument error 46 

error message 123-124 

size 86 
CDLOG subprogram 

accuracy 73 

algorithm 54 

effect of an argument error 54 

error message 124 
CDMPY«/CDDVD» 

(see CDDVDt/CDMPYi) 
CDSIH/CDCOS 

(see CDCOS/CDSIN) 
CDSQRT subprogram 

accuracy 73 

algorithm 61 

effect of an argument error 62 

size 86 
CDUMP/CPDUMP 30 
CDUMP/CPDUMP subprogram 30 

algorithm 66 

effect of an argument error 66 

size 86 
CEXP subprogram 

accuracy 73 

algorithm 46 

effect of an argument error 46 

error message 120-121 

size 86 
CHAR subprogram 22 
Character subprograms 

CHAR 22,10 

ICHAR 22,10 

INDEX 22>10 

LEN 22,10 

LGE 22,10 

LGT 22,10 

LLE 22,10 

LLT 22,10 

manipulation routines 22 

storage estimates 87 
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CLOG subprogram 

accuracy 73 

algorithm 54 

effect of an argument error 54 

error message 121 

size 86 
CMPY#/CDVD# 

(see CDVD#/CMPY#) 
common logarithm subprograms 52-55,14 
complemented error function 

subprogram 41-45»19 
complex exponentiation 

subprograms 67-71 
complex multiply and divide 

subprograms 66 
corrective action 

program interrupt 
COS/SIN subprogram 

accuracy 73 

aigori thm 56-57 

effect of an argument error 57 

error message 116 

size 86 
COSH/SINH subprogram 

accuracy 73 

algorithm 49 

effect of an argument error 49 

error message 116 

size 86 
cosine subprograms 17 
COTAN/TAN subprogram 

accuracy 73»78 

algorithm 63-64 

effect of an argument error 64 

error message 117 

size 86 
cotangent subprograms 63-65,17 
CQABS subprogram 

accuracy 74 

algorithm 35 

effect of an argument error 34 

size 86 
CQCOS 

(see CQSIN/CQCOS) 
CQDVD#/CQf1PY# subprograms 

accuracy 74 

algorithm 66 

effect of an argument error 66 

size 86 
CQEXP subprogram 

accuracy 74 

algorithm 47 

effect of an argument error 47 

error message 122 

size 86 
CQLOG subprogram 

accuracy 74 

algorithm 55 

effect of an argument error 55 

error message 122 

size 86 
CQMPYtt/CQDVD 

(see CQDVD#/CQMPY») 
CQSIN/CQCOS subprogram 

accuracy 74 

algorithm 59-60 

effect of an argument error 60 

error message 123 

size 86 
CQSQRT subprogram 

accuracy 74 

algorithm 62-63 

effect of an argument error 63 

size 86 



CSIN/CCOS 

(see CCOS/CSIN) 
CSQRT subprogram 

accuracy 74 

algorithm 61-62 

effect of an argument error 62 

size 86 
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DARSIN/DACOS 

algorithm 36 

effect of an argument error 36 

error message 119 
DASIN/DACOS 

(see DARSIN/DARCOS) 
DATAN 

accuracy 74 

algorithm 39 

effect of an argument error 39 
DATAN/DATAN2 subprogram 

accuracy 74 

algorithm 39 

effect of an argument error 39 

error message 119 

size 86 
DCOS/DSIN subprogram 

accuracy 74 

algorithm 57-58 

effect of an argument error 58 

error message 118 

size 86 
DCOSH/DSINH subprogram 

accuracy 74 

algorithm 50 

effect of an argument error 50 

error message 119 

size 86 
DCOTAN/DTAN subprogram 

accuracy 74-75 

algorithm 64-65 

effect of an argument error 65 

error message 120 

size 86 

accuracy 74 

algorithm 42-43 

effect of an argument error 43 

size 86 
DEXP subprogram 

accuracy 75 

algorithm 46 

effect of an argument error 46 

error message 118 

size 86 
DGAMMA/DLGAMA subprogram 

accuracy 75 

algorithm 48-49 

effect of an argument error 49 

error message 128 

size 86 
divide-check service subprogram 27 

(see also DVCHK) 
DLGAMMA/DGAMMA 

(see DGAMMA/DLGAMA) 
DLOG/DLOGIO subprogram 

accuracy 75 

algorithm 53 

effect of an argument error 53 

error message 118 

size 86 
(see DCOSH/DSINH) 
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DMAXl/DMINl subprogram 20 
DMOD/AMOD 21 

(see also AMOD/DMOD) 
DSIN/DCOS 17 

(see also DCOS/DSIN) 
DSINH/DCOSH 18 

(see also DCOSH/DSINH) 
DSQRT subprogram 

accuracy 75 

algorithm 60-61 

effect of an argument error 61 

error message 118 

size 86 
DTAN/DCOTAN 

(see DCOTAN/DTAN) 
DTANH subprogram 

accuracy 75 

algorithm 51-52 

effect of an argument error 52 

size 86 
DUMP/PDUMP subprogram 

assembler language 
requirements 28-29 

format specifications 28 

output 29 

programming consideration 29 

sample printouts 29 

size 87 
DVCHK service subprogram 

assembler language 
requirements 27»81 

size 87 
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end of execution service 
subprogram 28 

(see also EXIT) 
entry name 
ERF/ERFC subprogram 

accuracy 75 

algorithm 41-42 

effect of an argument error 42 

size 86 
error 

messages 90-131 

procedures 90 
error function subprograms 19 
execution error messages 95-130 
execution-time routines 

messages 95 
EXIT service subprogram 

assembler language requirements 28 

size 87 
EXP subprogram 

accuracy 76 

algorithm 45-46 

effect of an argument error 46 

error message 115 

size 86 
explicitly called subprograms 

accuracy statistics 72 

list 10-11 

size 86-87 

use in assembler language 79 

use in VS FORTRAN 12 
exponential subprograms 

explicit 45 

implicit 67-71 

list 14 



exponentiation 

expli ci t 
(see EXP; QEXP; CQEXP) 

impli ci t 

with complex base and complex 

exponent 67 
Mith complex base and integer 

exponent 67 
with integer base and exponent 69 
Mith real base and exponent 68 
with real base and integer 
exponent 68 
exponent overflow exception 27 

(see also OVERFL) 
FCDXItt subprogram 

algorithm 67 

error message 114 

size 86 
FCDXDt/FCQXQ»/FCXPC» 

algorithm 67 

effect of argument 67 
FCQXI subprogram 

accuracy 76 

algorithm 70 

effect of an argument error 70 

error message 120 

size 87 
FCXPI# subprogram 

algorithm 67 

error message 114 

size 86 
FDXPD# subprogram 

algorithm 68 

effect of an argument error 68 

error message 113 

size 87 
FDXPI# subprogram 

algorithm 68 

error message 113 

size 87 
FIXPItt subprogram 

algorithm 69 

error message 112 

size 87 
FQXP2# subprogram 

accuracy 76 

algorithm 70 

error message 118 

size 87 
FQXPItt subprogram 

accuracy 76 

algorithm 7 

effect of an argument error 70 

error message 114 

size 87 
FQXPQtt subprogram 

accuracy 76 

algorithm 71 

effect of an argument error 71 

error messages 155 

size 87 
FRXPItt subprogram 

algorithm 68 

error message 112 

size 87 
FRXPRft subprogram 

algorithm 68 

effect of an argument error 68 

error message 113 

size 87 
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GAMMA/ALGANA 

(see ALGAMMA/GAMIIA) 
GAMMA subprograms 47-49,20 
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hyperbolic cosine 
subprograms 49-51,18 

hyperbolic sine subprograms 

hyperbolic tangent 
subprograms 51-52,18 



49-51,18 



minimum value subprograms 20 
NOD subprogram 20-21 
modular arithmetic subprograms 
module names 

character 132 

mathematical 133 
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natural logarithm 
subprograms 52-55,14 
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ICHAR 
INDEX 

module name 132 
IDINT/IFIX/INT subprogram 21 
implicitly called subprograms 

list 24-26 

input/out routines 8 
in-line code 7 
INT (see IDINT/IFIX/INT) 
interruption procedures 
intrinsic functions 7 

(see also implicitly called 
subprograms) 
introduction 7 



66-71 
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LEN subprogram 
LGAMMA 49 

(see also ALGAMA/6AMMA) 
library messages 90-131 
library execution routines 
LLE subprogram 
LLT subprogram 
LOG (see ALOG/DLOG) 
logarithmic subprograms 52-55,14 
log-gamma subprograms 47-49 



88 






mathematical exception tests 
mathematical function subprograms 

accuracy figures 

algori thms 

definition 

explicitly called 

implicitly called 

lists 19-21 

performance statistics 

sizes 

use in VS FORTRAN 

use in assembler language 
maximum value subprograms 20 
MAXQ/MINO subprograms 20 



operator messages 131 
out-of-line code 7 
OVERFL service subprogram 

assembler requirements 27,18 

size 87 
overflow indicator service 

subprogram 27 
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PDUMP/DUMP (see DUMP/PDUMP) 
performance statistics 72 
program interrupt messages 
progamming considerations 

CDUMP CPDUMP 30 

DUMP/PDUMP 29 



28-29 

90-94 
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QARCOS (see QARSIN/QARCOS subprogram) 
QARSIN/QARCOS subprogram 

accuracy 76 

algorithm 37 

effect of an argument error 

error message 127-128 

size 87 
QATAN/QATAN2 

accuracy 76 

algorithm 40-41 

effect of an argument error 41 

error message 127 

size 87 
QCOS (see QSIN/QCOS) 
QCOSH (see QSINH/QCOSH) 
QCOTAN (see QTAN/QCOTAN) 
QERF/QERFC subprogram 

accuracy 77 

algorithm 43-45 

effect of an argument error 45 

size 87 
QEXP subprogram 

accuracy 77 

algorithm 46-47 

effect of Bn argument error 47 

error message 126 

size 87 
QLOG/QLOGIO subprogram 

accuracy 77 



c 



138 VS FORTRAN Application Programming: Library Reference 






algorithm 5^-55 

effect of an argument error 55 

error message 126-127 

size 87 
QSIN/QCOS subprogram 

accuracy 77 

algorithm 59 

effect of an argument error 59 

error message 127 

size 87 
QSINH/QCOSH subprogram 

accuracy 76-77 

algorithm 50-51 

effect of an argument error 51 

error message 127 

size 87 
QSQRT subprogram 

accuracy 77 

algorithm 62 

effect of an argument error 62 

size 87 
QTAN/QCOTAN subprogram 

accuracy 77 

algorithm 65 

effect of an argument error 65 

error message 128 

size 87 
QTANH subprogram 

accuracy 77 

algorithm 52 

effect of an argument error 52 

size 87 
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relative error 
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sample dump printout 
save areas 81 
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27 



service subprograms 

mathematical exception test 

sizes 86-87 

use in assembler language 

use in VS FORTRAN 27 

utility 28 
SIN/COS (see COS/SIN) 
sine subprograms 56-65»17 
SINH/COSH (see COSH/SINH) 
square root subprograms 60-63*15 
SQRT subprogram 

accuracy 78 

algorithm 60 

effect of an argument error 

error message 115 

size 87 
storage estimates 

character subprograms 87 

execution-time routines 88 

extended precision routines 86-87 

mathematical function 
subprograms 86-87 

service subprograms 87 
storage dump service 
subprograms 28-30 
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TAN/COTAN (see COTAN/TAN) 
tangent subprograms 63-65»17 
TANH subprogram 

accuracy 78 

algorithm 51 

effect of an argument error 51 

size 87 
trigonometric subprograms 35-'41>16»10 
truncation subprograms 21 
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utility service subprograms 28 
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